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000000 IDENTIFICATION OIVISION. COBOLTST 


000010 
0.00020 PROGRAM@*[0..CCBOL MASTER. IESTa#.. XVeOe.G0... apis cree cise titan Meads, eg enone et Acetate 
000030 INSTALLATION, AUTO=PROGHAMMING, S&E DIV3 PASADENA, COBOLTST 
000040 DATE WRITTEN, REWRITTEN MAY 1966, 057 31°66 
. 000050 DATE*COMPILED,. TUDAY.. 2 wk ee Sos P iahtiintttlbes tote at tn reese. OBOE TST... 
000060 SECURITY. NONE, CCBULTST 
000061* THIS MATERIAL IS PRUPRIETARY TU BURROUGHS 
ee  OCOOOB?* . .. CORPORATION AND 1S NOTL.TO BE KEPRUDUGEDs USED. ... 
000063* OR OISCLOSED EXCEPT IN ACCORDANCE WITH PROGRAM 
000064 LICENSE OR UPON WRITTEN AUTHORIZATION OF THE 
000065" PATENT DIVISION...OF...BURROUGHS CORPORATIONs 
000066 DETROIT» MICHIGAN 48232. 
QOU067* COPYRIGHT (C) 196d» 1971, 1972 
"awe oe vs OONOSBH. BURROUGHS. CORPQRATIUN. DETRUIT» MICHIGAN... 
000069« AA325003 
000070 ENVIRONMENT OIVISION. COBOLTST 
ra 000080 CONFIGURATION SECTIONe.. adits 38 pe iets dh Hy ts aaa goa. oad “COBOL TS hs 
: 000090 SOURCE@COMPUTER. B=5000. COBULTST 
y 000100 OBJECT=COMPUTER. Be500C. COBULTST 
perme soee  O<SOOL10.SPECTAL*NAMES, READER 15 CARU CRANNEL. 1 19 TOPQ 2 ce cee. COBRULTST 
000120 INPUT#QUTPUT SECTION, COBOLTST 
. 000130 FILESCONTROL » COBULTST 
“Noo 6. OOOTMO .. SELECT OPTIONAL OPT1 ASSIGN TO. TAPE. RESERVE_NOs... re ee COBOLTST 
: 000150 SELECT OPTIONAL OPT2 ASSIGN TO TAPE. COHULTST 
000160 SELECT CDIn ASSIGN TQ REAVER RESERVE NO ALTERNATE AREAe CosgeLTsr 
ene nn 00170 . SELECT PROUT ASSIGN. TU. .PRINTER.. RESERVE NO ALTERNATE AREAs CQHOLTST. 
. 000180 SELECT OPTYJONAL LOPF ASSIGN TO TAPE. COBOLTST 
000200 SELECT OPTIONAL NOLOPF ASSIGN TO TAPEs COBOLTST 
000210 SELECT UNBLKT. ASSIGN TO JAPE, | a Beeht Wits cheeeote ss piet OR OEUS Te. cal ems paces 
000220 SELECT PUNCHF aSSIGN TO PUNCH. COBULTST 
000230 SELECT TP*FL™4 ASSIGN TU TAPE RESERVE NO ALTERNATE AREA, COBULTST 
000240 SELECT TreFL*2 ASSIGN TO TAPE RESERVE NO. ALTERNATE AREAS... COBULTST 
000250 SELECT TP=FL"™3 ASSIGN TO TAPE RESERVE NO ALTERNATE AREAs COBULTST 
000260 I*O=CONTROL, COBOLTST 
000270 APPLY TECHAIQUE*A ON OPTle | ~ . sc «Roots debits oo. . . . COBOLTST. 
000280 APPLY TECHNIQUE7A ON OPTéde 05731766 
000290 APPLY TECHNIQUE"A ON LOPFe COBULTST 
. 000300. . APPLY TECHNIQUE*A. ON. NOLOPF, te enti tin wavwtis sven mis anne GOB ULT ST. bt hese Rtn en eee teens eatee a, gut em tee eee ee, 
000310 APPLY TECHNIQUE"A ON TP™FL@=1, COBOLTST il 
000320 APPLY TECHNIGUE"B ON TP=FE=2, COBULTST 4@ 
000330 APPLY TECHNIGQ@UE*"C ON TP@FL=3,. i Mag Gg Pat alt hel tg Smee eC LD Sc oti get ead eae See eal a eB et ee aca eat tetas si 
000340 DATA DIVISION, COBULTST ‘ 
; 000350 FILE SECTION,  COBOLTST @ 
My a . 000360 FD OPT2 LABEL RECORD STANDARUL VA OF ID. MORTELLI" wal sa cee gd Jot eg ee LET Se inuine tiple mote Puan aa 
000370 BLOCK CONTAINS 24 TO 96 CHARACTERS COBOLTST 
‘ 000380 DATA RECORD IS OPTF2, COBOLTST 4@ 
oo. 900390 01 OPTF2. _. ate gts haart Blasts ayy ll <A Oviatt Beas Devt doe Bc See coda em cee he ENO EIS Wieder nat tect tiny Pa eel eee ake 49 
6 000400 02 VLFC2 PC YCB). COBULTST 46 
000410 82 FIODAT. COBULTST 7 @) 
a ONM2Q. 2 OR OP1A PO 9(8), er er 91-18] 2G en ee ae 48 
000430 e3 oPig Pc x¢g) oC 1 TO 10 TIMES DEPENDING ON VLFC2¢ COBULTST 42 
000440 FO OPTy LABEL RECORD OMITTED BLOCK CONTAINS 10 RECORDS COBOLTST 1 @ 
000450 — DATA RECORD IS OPTFie ee ee he PN Ne ie ee . __ COBOLTST | Senet ha eee 5y 
000460 01 OPTF13 SIZE 200 AN, CUBULTST 5 
000470 FD LOPF COBULTST «| @ 
Meee OUGRO BLOCK. CONTAINS 10 RECOROS oo ee  ROBULTST [se 
000490 LABEL RECORD IS STANOAMRD COBULTST 55 
000500 VALUE OF IDENTIFICATION 15 "AAAAAAA" COBOLTST sj @ 


Dasa O00S 10), nc SAVEREARTOR 1S. 200. ft hh Bi a BN en ee OOD OL TSN in at css 


LSE ECL Ek 


fp Sb 2 3 


=? 


000520 
000530 01 
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000550 
000560 
009570 
000580 
000590 
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000610 O14 
000620 


-. 000630 


000640 
000650 
000660 FD 
000670 
000680 
000690 
000700 
000710 O01 
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009730 
000740 
000750 
009760 
000770 
000780 
009790 01 
000800 
009810 
000820 
000830 
000920 FD 
000930. 
000940 
000950 
002960 
0090970 O1 
000980 .. 
000990 
001000 
001010 
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001080 
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DATA RECORGS ARE LOPFR» LUPFRI, 

LOPFRI, 

Q4 LOPNU. PC.9(5). 

O4 FILLER PC x(3),. 

O4 LOPAN, 

. O08 Lopte Pc x€5) OC Ye 

O4 FILLER PC x(3), 

O4 LOPAA PC x(8), 

QA FILLER. PO KC1O eo 

LOPFRe 

O2 REC1 SZ 80, 
OW RAP 4.OC..40.82Z.8¢-. 

Q2 REC2 SZ AO, 

04 R2P1 SZ 5 NUMERIC OC 8. 

NOLOPEF ........ i 


BLOCK CONTAINS 50 RECURDS 
LABEL RECORD IS @MITTED 
RECORDING. MODE IS. NUN@STANDARD 


DATA RECORCS ARE NLOPFRe NLOP. 
NLOP, 
Q4 \NLNU PC 9C(5), 
O4 FILLER PC x(3), 
04 NLOAN. 

o8 Nuoc PC .x¢5).. ue 9, 
O4 FILLER PC x3). 
O4 NLAA PC X(B). 
OH FILLER PC X10). 
NLOPFR, 
O02 NOLFA $2 80, 

O4 NFA1 S42 8. 0C 10.6 
O2 NOLFB. 

O4 NFA2 S24 5 NUMERIC UC 8, 
UNBLKT 


LABEL RECCRD IS STANDARD 

VA OF ID “AAAAAAA™ 

SAVE@FACTCR IS 37 .. cue ; 
DATA RECORD ARE UNBRe UNERYsRWAL, 
RWA1, 


O02 ABNI...PC .9€4)-. 

O2 FILLER PC X(3)-. 

02 ABA1, 
a O3..ACC1 Pe. X€3)2 .Q@CCURS 9 TIMESe. .. 
G2 FILLER PC X(3). 

02 ABC PC X(8)-. 

O2 FILLER. 82. DOs. 


UNBR, 

O02 URL SZ a0. 

04 UBR1 SZ.6 OC.10.. 

O02 UR2 SZ 40. 
04 UBR2 SZ 5 OC be 

SZ 115. 

03 CMP, SZ 64, 


REDEFINED FO2, 

03 CMP2 SZ 30, © 
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COBULTST 
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COBULTST 
COBULTST 
Siitiincn a EDAOLTS T 
COBULTST 
. COBULTST 
., COBOLTS1 
COBULTST 
COBULTST 
.. COBOLISI 
COBOLTST 
CUBOLTST 
 COBULTST. 
COBOLTST 
CUBGLTST 
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001200 O2 FRO2 REDEFINES TO2. CUBOLTST 
001210 03 CMmp4 S2 24, COBOLTST 
ee i 001220. O03 FILLER SZ 91... Shes in et Oe Atenme cas te we OUD TST 
001230 O2 FVO2 REDEFINES FRO2, COBULTST 
001240 03 CMP5 SZ 16. COBOLTST 
6 001250 @3 FILLER 5Z 99, . . 7 COBULTST 
| 001260 O2 Sx02 RECEFINES FVOZ. CUBULTST 
001270 03 cMPp6 SZ 8. COBOLTST 
001280 03. FILLER SZ. 1078 ses 82 . COBOLTST 
001290 O2 SVO2 REDEFINES SXxX0z, COHKULTST 
001300 63 CMP7 SZ le. COBULTST 
dacs . 001340 03 FILLER. SZ 114.. is -COBOLTST 
\ 001320 O2 FILLER Sd 5. COBULTST 
001330 FO PUNCHF LABEL Repose OMITTED DATA RECURU PUNREC. COBULTST 
Pees 001340 01 PUNREC, ... ' : COBOLTST 
MH 001350 02 PRC SZ 80, COBOLTST 
001360 04 PRCG $Z 8 OC 10, . CUBOLTST 
oo... ., 004370 FD CDIN RECORDING MODE. 1S..STANDARD. As ie. A COBULTST 
a 001380 FILE CONTAINS 4 RECURD COBULTST 
ie 001390 BLOCK CONTAINS 86 CHABACTERS CUBOLTST 
Wes Utena. Q01400 RECORD CONTAINS 80 CHARACTERS. oo. CGHULTST 
- 001410 LABEL RECCRD IS STANDARD VALUE OF 1D 13 "MSTCDIN" COBOLTST 
A 001420 DATA RECORD ARE CIN® CLlASCIANe COBULTST 
a 001430 01.CIN CLASS IS NUMERIC USAGE TS DISPLAY. . -  COBOLTST 
fs 001440 02 F1D10 SIZE IS 1 DIGIT USAGE £8 DISPLAY cLaSS IS NUMERIC. COBOLTST 
& 001445 O02 FLO10A  REDEFINES FIDO PC Xx, 06~06"68 
8 001450 02 F1020 SZ IS 2 DIGITS USAGE DISPLAY cLaSS 1S NUMERIC, COBULTST. 
ri 001460 O2 F1030 SZ 3 DIGITS USAGE DISPLAY CLASS NUMERIC. COBOLTST 
: 001465 O2 F1D30A REGEFINES F1030 PC XXX, 06706768 
ee 001470 O02 F1031 Sz 3.DISPLAY NUMERIC. POINT LEFT 1 PLACES. ....... COBOLTST. | 
. OoOlsaO 02 F14042 SZ 4 NUMERIC SIGNED PUINT LOCATION 1S LEFT 2 PLACES, COBULTST 
rs 001490 02 F1052 SZ 5 NUMERIC SN POINT LEFT 3 PLACES, COBULTST 
~ 001500 Q2 F1D63 SZ © NUMERIC SN.POINT LEFT Je cose Co vee COBOL TST 
. 001510 02 F1073 Sz 7 NUMERIC PICTURE IS $9999V999, COBOLTST 
001520 O02 FIDB& PC IS S9CHIVICH)« COBULTST 
001530 Q2 FiD94 Foe S9OCSIV9OCL)... . . _.. .. PRI 1576 
“ 001540 O2 F1D105 PC $9(5)V9(5). CUBULTST 
‘ 001545 02 F1D105A REHEFINES F1U105 PC x¢10), 06700"68 
" 001550 02 F4D0115 FC S9(6)V9(5). 7 i. taat ee oo ... CUBGLTST. 
001555 02 F4D115A REDEFINES F10115 PC X(10), 0670668 
001560 02 F1D116 PC S9(5)V9C6). COBUOLTST 
a 001565 02 F10116A REDEFINES Fi0L16 PC X€44). " . oe 9O%0O"E68 |. z 
6 001570 01 CIA. CUBOLTST 
001580 02 DA1 SIZe IS 1, COBULTST 
i: 001590 O2 Dad SIZE IS 2, ee ee Sriaks tack poet. cule ae CUB OLS he 
o eciece 02 DA3 SIZE iS 3. GLUbBLLTST 
a 001610 02 pad SZ 4, COBULTST 
ss) . 001620 02 DAS $2.5... . Shh A Baudeiticry sad miedo: Se COBOLTST:. 
# 001630 O02 DA6 SZ 6. COBULTST 
a 001640 02 DA? SZ 7. COBOLTST 
Mocca oven  A.01650. 02 OabB.SZ.a,.. 2. ere Aig vet Gthyue Snes lu hence wiaetunet Sean acute tS Ls acne one,. ec fe 
001660 02 DAY SZ 9%, COBULTST 
e* 001670 @2 DALO $Z 10, COBOLTST 
a AOLOEO. OD A i Senet tthe een aepaactinbets aera fee ts “ban ete pal bet Aen Ce oe Ee ooo 
a2 001690 02 MAi4 SZ 14, CUBULTST 
a 001700 01 CIAN. COBULTST 
Moet we POLLO. 7. 02. DAN PICTURE 15.0% ¢ oc ciccance ae CAA eceeend aw ace ee COBOL TST. 
‘i 001720 02 DAN2 PICTURE IS X(2)- COBOLTST 
e 001730 O02 DAN3 PICTURE XXXe COBULTST 
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001760 
001770 
001780 
001790 
001800 
001810 
001820 


001840 
001850 


001860 


001870 
001880 


001890 


001900 
001910 


001930 
001940 
001950 
001960 


02 DANS 
02 DANG 
02 DAN? 
02 DANS 
02 DANO 


PC 
PC 


RC 


PC 
PC 


XO5)6 
XC6)-6 


X07 )o 


XC8)- 
KC9). 


Q2 DANIO Pc x(10). 
O2 OAN11 PC X(11). 
O2 DANIA PC X(14). 


001830 FO TPeFLel (TF 12 


RECORDING mQDE 1s STANDARDs» 
FILE CONTAINS ABGUT 10 RECORDS 
BLOCK. CONTAINS 2.RECORDSs.......- 
RECQRD CONTAINS 100 CHARACTERS» 
LABEL RECORD IS STANDARD» 


SEQUENCED ON FA21. 


001920 O01 TFi3. | 


02 PART1 SIZE 80, 
O04 PT11 SZ 8 ACCURKS 10 TIMES, 


Q2 PART2 SrIZe ao, . 
04 PT12 


OO1970 O1 TF11 SIZE S56, 


001980 


001990 
002000 
002040 
002020 
002030 
002040 
002050 
002060 
002070 
002080 
002090 
a02100 
002110 
002120 
002130 
002149 
002150 
002160 
002170 
002180 
002190 
002200 
002210 


002230 
002240 


0.028250 


002260 
002270 


.O02280.. .... 


002290 
002300 


008310... 


002320 


- 002330 


cai roeineeaceneee iene! 01 91-5 1 Wo en 


02 Faet 


SIZE JS 41 DIGIT USAGE IS DISPLAY CLASS [S NUMERICe 


02 Fae2 size Is 25 
O03 FA3t SZ 2 NUMERIC UISPLAY, 


O03 FA32 OZ 18 ALPHANUMERIC DISPLAY CHARACTERSs ~ 
09 FA9Y 


VALUE OF ID IS "JPELIAMs 
DATA RECOROS ARE TF13e 


TFiis 


TF ies 


SIZE 8 NUMERIC ocCURS 5 TIMES, 


S$1Ze IS 3 AN VHARACTERS, 
09 FA92 SZ Y, 
27 FA271L 92 On. . 
43 FA431 PICTURE IS XxX. 
43 FA4S32 PICTURE x(2), 
43.F A433 PC XxX, og 
27 Fa27e 52 4 AN DISPLAY. CHARACTERS, 
O09 FAS3 PICTURE 15 x¢ 


03 FARR PC x5). 
O2 FILLER SI4E 6 AN. 
O02 FAe3 SIZE Is 24 VIGITs USAGE TS CCMPUTATIONALe 
3 FAS1.592 4 CMP, 


05 FAS2 SZ 8 CMP, 
05 FA53 SZ 8 CMP, 


6). 


02 Fa24 REDEFINES Fa23 Sé 24 AN DISPLAY... 
O7 FA71 COPY FAs2 OF FAa2 CF Tkile 

13 FAL31 RENEFINES FA93 GF FAI. 

PC. .XXXa.. 


19. FAL94 
19 FAI92 


O7 FAT2 PC X(6). 


002220 O1 TFi2. 


02 FA25 SZ 10 OCCURS 
06 FAG1 PC XX. 


06..FA62 PC..XxX OC. 


06 FAG3 PC XX, 
88 FA8B3 VALVE IS 10, 
BA FABBS VALUE 18 10 THRU 43.00 uw... 
88 FABBS VALUE IS 0 THRU 03. 
Q2 FILLER SZ 2, 
02. FA26 CMP OC.3 TIMES, .. _ 
08 FAB1 PC $9(7)V9C4) OC 2. 


02 Fae7, 


~ - OF FA6Ba COCURS 2. TIMES. 


PC XXX, 


3 TIMES. 


3 TiMES,.. 


GSoC OR OLS Tk 


CHARACTERS CLASS AN USAGE DISPLAY. 


 COBULTST. ... 


COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 


COBULTST... 


CQOBOLTST 
PRI 1391 


COSC PST ese wee 


COBULTST 
COBOLTST 


COBOLTST 
COBOLTST 


COBULTST 2 


COBULTST 
COBULTST 


COBOLTST 


- CGBULTST.. 


COBOLTST 
COBOLTST 


_ COBULTST 


COBULTST 
COBOLTST 
CORULTST 
cCOBOLTST 
COBOLTST 


. COBOLTST 


COBOLTST 
COBULTST 


COBOLTST 
CUBOLTST 


COBULTSI .. 


COBULTST 
COBULTST 


COBULT ST. 


_ COBQLTS1 . 


COBOLTST. oo. 


COBOLTST 
COBULTST 


COBOLTST 
COBOLTST 


COBOLTST... 


COBOLTST 
COBOLTST 


COBCLIST 
COBQLTST 


- COBOLTST. 


COBOLTST 
COBOLTST 


~ COBOL TST 


COBOLTST 
COBOLTST 


CORDES Taint ee Sane 


COBOLTST 
COBOLTST 


e@ @ \e 
002350 12 FAL21 UC @ TIMESe COBOLTST 
@ 002360 23 FAZ31 OC 2 TIMES. COBOLTST e 
j 002370. 34 FARUL...0C 2 TIMES, |... sit Side: ited Gee COBB UL AST, pepe sansa nde eee ate le a 
002380 45 FA451 PC XX OC.2 TIMES. COBULTST : 
@. 002390 O2 FA2B8 REDEFINES FA27 PC x(8) OCCURS 6 TIMES, COBULTST 
Ve 002400 02 FA29 REDEFINES FA2Bs.. .. Penna COBOLTST. . ee eee 
4 002410 67 FA73 CLASS NUMERIC USAGE DISPLAY siZe Is Ws COBULTST 
eo 002420 O7 FAT4. COBULTST 
fe. 002430 4b FALIL..SZ2 2. ANe  COBULTST Te Ree See Ae eee 
002440 Li FA112 SZ 5 ANe COBOLTST 
eo 002450 O? FA75, COBULTST 
002460 (23 FAZ31 NUMERIC $2.5 DISPLAY OCCURS S.. COBULTST. ... sy ce eat Macpac a ey Ss at Dg rc 
. 002470 O7 FATE. COBULTST 
. 002480 42 Fau?1 SZ 34 CLASS NUMERIC. COBOLTST 
heed . 002490 88 FABBL.. VALUE 1S 1600, COBOLIST. - Spee eae ee iat 
3 002500 88 FasBe VALUES ARE O01 THRU 005, COBOLTST 
@ : 002510 O7 FATT. COBOLTST 
Yen ss 6 = 002520 45 FAM56..S8Z 5. ANe | COBOLTST. he teins Oat Sa ee Ss ae 
002530 4S FA452 SZ 10 AN COBOLTST 
eo: 002540 46 FA461 PC XX. COBOLTST 
Ms 002550 46 FA46e.. PO Axa. COBOLTST. aN ct a a Mt eee ae 
3 002560 46 FA463 SZ 6 ANew COBULTST 
. 002570 48 FA481 PC AXXKe COKULTST 
3 002580. 4B FAGB2 PC XXX. COBOLTSI i a ten eee eer 
zt 002590 45 FA453 PC XX OC 2. COBULTST 
r ee 002600 45 FAMS4 PC XXX, COBOLTST 
vt 002610 45 FA455 PO XXXe. CUBULTST Cah wend Ane MDE etc t ame tt oe ahem cist sehen ns Sooke ee 
i 002620 66 FA664 RENAMES FAd56, COBOLTST 
@ 002630 66 FA662 RENAMES FA4S2. COBOLTST 
Bee cee 0086480. 66 FA663 RENAMES FA454 THRU FAGSS. es  COBULTST. enlace ate Maresh ea Ras cee eet aNd gree 
2 i 002660 66 FA66Q RENAMES FAGSS. COBULTST Ha 
oe” 002670 FD TPeFL=2 (T=F2)3 COBOLTST Sg 
coe 0 0. 9.02680. RECORDING STANDARDS .... CUBOLTSI é Fi ec a So Pa eae 
ree 002690 RECORD 100 TU 3003 COBOLTST a 
"@: 002700 LABEL RECCRD STANDARD? COBOLTST oo @ 
nooo. 802710 VALUE OF ID “TPFL2"s | COBULTST eae 7 eee Pema Tere, 
002720 DATA RECORDS Tr21: [Free3 COBULTST u 
eo” 002730 SEQUENCED CN FB215 COBOLTST »@ 
eo 002740 OL TE214. a a 4, 28 hesnau reece fait bartant tnaidatae, SOWELL S bieitk: eect eT Ae reed oh eee ee eee TD a 
ad 002750 02 FB21 USAGE DISPLAYS CLASS NUMERICS SIZE 1 DIGITe COBOLTST _ 
oe” 002760 02 Fp22 SZ 2 NUMERIC DISPLAY DIGITS. COBULTST 4@ 
Me oe 092770 O2 FILLER. SZ Se 2 ee STi CCE ST era, ce tee ae gayi hectare cee ee an eA Fa = 
“ 002780 O02 €B25 COPY FA23, COBOLTST 0 
eo: 002790 O02 FB24, COBOLTST 1@ 
Mh sosnianes oe » 002800 O03. FB32. CoPY.£as2 OF TElLe.. eee ete ee em remarry 8] = 1H) Oh BN ee ees 4 
002810 O02 FILLER SZ 6. COBOLTST k 
eo" 002820 02 Fa23- $7 0 TO 24 CHARACTERS DEPENDING ON FB226 COBOLTST 4@ 
8. 002830. | 03_FB831 OCCURS 0. TO 3 TIMES DEPENDING ON FB2te QOL TST a 
“ 002840 OS FB51 PC XXXXe COBOLTST 46 
ee) 002850 05 FB52 PC XXXke COKULTST i@ 
98 arene nee MO 2B6O..0L. TE226.-.. .- en te net ees ne AO TT ce ee ce A RR une ree bi 
‘ 002870 03 FB26 SZ 1 ANe COHOLTST a 
in 002680 03 FR27 SZ 2 NUMERIC. COBOLTST @ 
yo ROO...) 6 O38. FILLER $2 5, WW. tacinctheh Paral paste oie tinh cpecn aoe CADET SD otal es ins lean. meralinage. ota Sees pee ets t A 
5 002900 03 FB33 S¢ 0 TO 64 CHARACTERS DEPENDING ON “FB27 + COBOLTST ‘ 
eo, 002910 04 FB41 OCCURS O TO 1 TIMES DEPENDING ON FB26, CQBOLTST 1@ 
Palins ani! 002920. eet ee 05 £B53 COPY FA2? Ge TR12,.. BOLTS . 
= 002930 FD TP=FL=3 CT9F3)5 . COBOLTST " 
@ 002940 RECORDING MODE STANDAKDS COBGLTST “4 @ 
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: 005940 13 FILLER SZ 40. COBULTST 
2 005950 O2 RF2 REDEFINES RF1 SZ 60, CUBULTST 
ooo. 008960 | 45 RTLL PO XC10).... ... | bo aly kth cas to bASe Soe wOCDBOLTST 
: 002970 15 RT12 SZ 30 AN. COBOLTST 
: 005980 39 RFX4. CUOBOLTST 
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006000 45 RFY2 PC xXC5), COBULTST 
006010 - 39 RFX2 PC XC10). COBULTST 
nae vee me. 000020 : 3G. REX3, oo ate coe ee ee ae ee 6. COBOLTST. 
\" 006030 47 RFZ1 PC X03). . COBULTST 
i 006040 47 RFZ2 PC X03), COBULTST 
‘ 09050 coe ee SG REX4A PO XC 4D os fe S i. putes Meech te cane sand Co eee CUBOL TST. 
i 006060 15 FILLEK SZ 40. CUBULTST 
4 006070 01 MISN REDEFINES MISC. COBULTST 
Vie oe 0.04080 @2 ROL PC. xCldd. : See tensa aces . : tim wwe: iwi w watts me COBOLTST. 
ui 006090 O2 RO2 SZ 45. CUBULTST 
* 006100 27 RDC1 PC XC10). COBOLTST 
oe 006110 : 27 RDD2 SZ 5. sis i he Wieiangne goes & (COBULTST, 
a 006120 33 RX1 PC 999, COBOLTST 
si 006130 a3 RX2 PC 99, COBULTST 
BY es oe 0.08540 02 RD3 .RC xXL10). ae : Cr a eee . . COBLLTST 
ca 006150 O02 RD4 $82 14. COBOLTST 
@* 006160 35 RUC1 PC X(5). | COBULTST 
eee re OORT O aa oo, ECRODSUP CANES te: cues: = we Hua, smut de hg onl waar CACORE UT ST 
C 006180 35 ROD3 PC X(5). COBOLTST 
@» 006185 02 FILLER §Z 30. COBULTST 
fF idwataes on COETOO 66 RNO RENAMES. ROL, ©... ip di S acwieeese & geet COBOLTST 
oe 006200 66 RND1 REAAMES ROD2 OF RD2. COBULTST 
% 006210 66 RNO2 RENAMES RDD1 IN RDG THRU RODS. COBOLTST 
on oe 004220 O1 MISO. REDEF INES. MISN.. ... Be As athe. Hho dene de ld ate OBST coe temas cents nate is st, ti 
* 006230 Q2 ROF SZ 10 UCCURS 8 TIMES. COBULTST e 
@»« 006240 01 MISP, | COBOLTST 3 
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# 006260 O4 CP2 COPY RD2 IN MISNe COBOLTST 2 
i‘ 006270 66 CPNi RENAMES RDD2 OF UF, CUBULTST 41@ 
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2 006290 01 GINT, COBOLTST . iW 
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ee . 004340. O02 GF2 Pc. 9999y99.. Oc.5. TIMES. eee, esata eet Steeda areata Amseee, tora d tena WES OD Oe ES ee casas cia he uate eB De a8 Et ee tae e 
006320 01 HDB SZ 12C AN, COBULTST 40 
006330 O2 FILLER $Z 25 VA SPACED. COBULTST |@ 
006340. Q2 PART1 SZ 3. VA “ANS", _COBULTST ee ee tee et Sane wae 2 ee aioe Bost 
006350 O2 FNL PC Xe COBOLTST 4 
006360 02 PART2 $2 1 vA "(", COBOLTST 4@ 
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, 006410 O02 END2 PC 99, COBULTST ag 
; 006420 02 PARTS §Z1 VA ")", COBOLTST | @ 
Fee a OO OOIO S02 FILLER SC 94° VA. SPACES 9 to co oo BOLT ST on = 51 
006440 01 HD9, COBULTST : 
006450 O02 FILLER $Z 63 VA" ioe ieee COBOLTST 1@ 
ete tee OO OOU GOS oY MMM soon shite oe gt hc HNN Wie Soe ne Oo a Re A i ea en ee Be ta et Sarath ake ose tg 
006470 O2 NWA PC x, COBOLTST 65 
006480 O02 FILLER $2 1 VA "C", COBOLTST «| @ 
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006500 Q2 FILLER SZ 4 VA ") =", i 
e@ aor oe 02 ANW SZ 15 AN. ee 
easy OO520 02 FILLER $2.8 VA" " COBULTST 
\ 06550 Be GEN Pree VAM A RET , UB UTS Yeh. gtd nt tore Sas Oot Mace Ad 
eo 006540 O2 FILLER SZ 1 VA "C", ea 
be 006550.. 02 INXN. PC. 99. COBULTST 1@ 
BoEEae carr Tiiry Se Gat eae a i ee a _ COBOLTST.. gage eee 3 
eo. 006570 02 RESUT SZ 18 AN, ave : 
|__ ane571 01. ABR. awe ere /@ 
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e | 006573 O4 NLFA SZ 6 OC 10. een 
pamme 006574... 02 NURC2..Sz-40, oe eae had 
: 006575 04 NLFB SZ = oC a See RE PORE saute thin tu ty Silanes ategresee cad UM PM Oo sa. oath ena as ie eevee a 9 
i 006580 01 WSTFi1 CCPY Fil. 107570 = 
. 006590 01 WSTF12 COPY TF1i2.... COBULTST 1@ 
006600 Of WSTF21 COPY TF21. TEES SG MAREE OG eee rer etmeek, CO f= 10 Ls Ere oc. ne ene ne oe eS a 
oo 006610 01 WSTF22 COPY TF2e. COBOLTST a 
= (006620 01 WSTF31. COPY. TF31, COBOLTST 1@ 
é 006630 01 WSTF33 CCPY TF33, ome ene ate antennae sie esas snare ne A QE FSB De Fags ere yee aie alte PL I eas a Td eee eet 15 
@. 000640 01 WSTF13 COPY TF13. seit ean _ i 
_ (006650. 01 WCINs. | COBOL TST 1@ 
006660 02 WCN1 PC 9, ~~ GOBQLTST.. - ba hacl tiie, youn Re theca, 18 
eo. 006670 02 WON2 PC 99, ened! : i 
— 0.06680 O2.WCN3 .Pc. 999, Seldtaled had 
- 006690 02 WCN4 Fa 99V9, COBOLTST... cua pt coh le a a a a 
e 006700 02 WCNS PC S99V99. COEOL TST 7 2 
Lar 00.0710 O02 WON6. FC 99V999. ate. Shed 
e- 006720 02 WCN7 PC 999V999, RDG 5 ctocte-n «cpm tein Meee at a at, i 
: 006730 02 WCNB Pc S9999v999, eens : 
pon 006740 02 WOND Pc. $9999V9999... Ee hed 
29} 006750 O02 WCN10 PC S$99999V9999.6 BOL TST a cee a : 
@ cee te WCNL11 PC S99999V9999Y, Sacre fe 
_ 67 2 WCN12. PC 999999V99999,. 3 = : 
e* 006790 01 WCIA. ? COBOLTST 2 
= 006800 02 WCAL SZ 1, Scares | 
: 006810 02 WCA2 SZ 2, eee tey st 
die 006820 02 WCA3 SZ 3 Pana tee 
oe - 006830 02 WAM Sz 4, angie 
7 006840 02 WCAS SZ 5, cet E SEES Tee 
e* 006850 02 WCA6 SZ 6, Seat 
: 006860 02 NWCA? SZ 7, | See 
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\ 006880 02 WCAY SZ 9, COBULTST 
. 006890 02 WOALOQ. SZ 10, teers. 
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COBULTST 
007040 O2 FILLER SZ 10 VA SPACES, COBULTST 
O07070. . OS GSP ie. s, can edd to ee tte ys a COKULTST.. 
007080 Q4 STARS SZ F.VA " tatwe "| COBULTST 
007090 04 PHASE SZ 19 VA "KEAD WRITE PHASE ", COBOLTST 
. 007100 O4 PHSAO PC. 963)... ae . COBOLTST.. .. .. 
007110 O04 wWRESULT $Z 6 VA " OK ony COBULTST 
007120 O2 FILLER SZ 5 Va SPACES, COBOULTST 
007130... . 02 RECNA.§Z..5. NUMERIC... .. COBOLTST 
007140 O02 DISCPT SZ 55 AN, COBLLYST 
007150 O01 WSVA1,. COBOLTST 
007160 02 WBN. PC.9(5).._.... CUBULTS?T 
007170 O2 FILLER PC x(3) VA LEKUES. COBULTST 
007180 02 VBA, CUBOLTST 
007190 O3.VCC PC XC5)..0CCURS 9..TIMES. COBOLTIST.. 
007200 O2 FILLER PC x(3) VA ZEROES. COBOLTST 
007210 02 vBC PC X(B). COBULTST 
007220 O2 FILLER. $2.46 YA. SPACES, .... | _ COBULTST ... 
007230 CONSTANT SECTICGNe COBOLTST 
007240 O1 HD1 SZ 120 ANo CUBULTST 
007250 _ O02 FILLER $2.30 VA SPACES. .. CUBULTST. 
007260 O02 MHO SZ 61 VA "SySTEmM IMPROVEMENT SECTION EXTENDED COBOL MACOBULTST 
007270= "STER TEST PROGRAM", COBOLYST 
.007280 O02 FILLER §2Z. 29 VA.™. ..XV.9,00",. uth, Seite ce aac aes, ve Sa courant tas 
007290 O1 HD3 SZ 120 ANe - CUBULTST 
007300 O02 FILLER $2 15 VA SPACES. CUBOLTST 
007310 O2.MS5G1.92.15.VA "TEST RESULT OK ee oo. COBULTST 
007320 Q2 FILLER SZ 90 VA SPACES, COBOLTST 
007330 O01 HD4 SZ 120 ANe CUBULTST 
007340 02 FILLER 82 15 VA. SPACESs COBOLTST 
007350 02 MSG2 SZ 22 VA “TEST RESULT INCORRECT « COBOLTST 
007360 O02 FILLER SZ 83 VA SPACES. COBULTST 
007370 01 HO6 $Z 120 aN. . - . COBLULTST. 
007380 02 FILLER SZ 15 VA SPACES. COBOLTST 
007390 02 MSG3 SZ 17 VA “ILLEGAL AUN VALLE", cCOBOLTST 
007400 02 FILLER.SZ 8&8 VA SPACES. COBULTST.OWw | 
007410 O1 HO? SZ 120 AN, COBULTST 
007420 02 FILLER $2 25 VA SPACES, COBULTST 
007430 92 MSG4 $2.30 VA "TEST OF ALL SECTIONS COMPLETED", 
007440 O02 FILLER $2 65 VA SPACES, COBOLTST 
007450 PROCEDURE DIVISION. COBULTST 
007460 START SECTION, saad 
007470 LLLLLe COBULTST 
007480 OPEN OUTPUT PRQUT. COBULTST 
007490 MOVE 30 TU CVA» CVhe De fu 
007500 MOVE 3 TO AUN, COBOLTST 
007510 PERFORM CLARY. COBOLTST 
007520 WRITE atR FROM Hpi BEFORE aOVANCING 3 LINES.  .. .. . COBOLTST. 
007530 TEST SECTION. COBOLTST 
007540 LABLL, COBULTST 
007550. PERFORM POOJ. Dire iis al aed eed nets oe, oT Sl 
007560 PERFORM PCO2, COBOLTST 
007570 PERFORM POO3, COBOLTST 
907580 PERFORM POcge = COBOL TST 
007590 PERFORM P0005. COBULTST 
007600 PERFORM POQ6. COBULTST 
_._ 907610 PERFORM POO7e soe dsm ch as I ey sitet ls _ COBOLTST 
007620 PERF@RM POC. COBULTST 
007630 PERF@RM P0009, COBULTST 
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007650 PERFORM PO11. COBULTST 

@ 007660 PERFORM P012 THRU O12PERF. CUBULTST 
in 007670 PERFORM POQ14.  CUBULEST. 
007680 PERFORM POtSe COBULTST 

eo 007690 PERFURM P0116, COBULTST 
as 007700 PERFORM PC18 THRU OL8VE. COBULTST 
, 0077140 PERFORM PO21. CUBULTST 

eo 007720 PERFORM POZ3 THRU 23EXK. CUBULTST 
eg 007730. PERFORM PO2&. a QC QORUL TST oes cie oi elec 
: 007740 PERFORM P0029. COUGLTST 

@ ' 007750 PERFORM P030. COBULTST 

2 007760 . PERFORM POQ31... MOOR OL TST whee oe ep hb tees 
007770 PERFORM PQ32. COBULTST 

00/7780 PERFORM P0333. COBULTST 

: 007790 PERFORM POQ34. ~ CUBOL TST. 
007800 PERFORM P035 THRU 39EXT. COBOLTST 

@ 007810 PERFORM PC36 THRU 36EKT» COBCGLTST 

ce 007820 PERFARM PO37 THRU 37EXT. CQOBULT ST. 
007830 PERFORM PO38 THRU 3BEXT. COBULTST 

eo 007840 PERFORM P039. COBULTST 
i 007850 PERFORM PO4Q, CGBGLTST 
‘= 007860 PERFORM PO4il. CUBOLTST 

@ 007870 WRITE A®*R FRUM HU? BEFORE ADVANCING TOP. COBULTST 
Cay 007880 STOP. -RUN, COBULTST 
- 007890 COBULTST 

@° 007900 COBULTST 

. + 007910 COBULTST. ... 
ig 007920 COBULTST 

r 007930 COBULTST 
OF tise hee 007940 . ..OBUL TST. 
as 007950 COBULTST 

@* 007960 COBOLTST 
Ms wis san DOT97O COBULTSIT 
a 007980 COBOLTST 

@” 007990 POO1 SECTION, COBULTST 
wo, 008000 13—- MOVE "PO01" TO SECT“NOe .. ‘ COBWLTST 
M 008010 MOVE “PARAGRAPH” TO SECT*TITLEs CUBLLTST 

ee: 008020 MOVE "A" TU ANSA (1)5 ROTA C1), COBOLTST 
ache 908030 MOVE 9.70. C108. oO...  COBLLIST 
v 008040 MOVE 1 T@ ANSN C1)» RSTN (1), COBOLTST 

eo. 008050 PERFORM T11 THRU T1E. COBOLTST 
oo ., 908060 3¢ NOTE COBOL A THRU Z 1 70 9 $ » » (€) RESERVED WORDS + OR *.. COBULTST. 

w 008070 VARIABLES, COBULTST 

@: 0080R0 19, GO TO 11, CUBULTST 
“008090 Tlhe IF C10 > 10 PERFORM Tlee oe. hee eer es eee ee  COBOLTST 
a 008100 MOVE 2 TO ANSN (2)» RSTN C2), COBULTST 

@« 008110 IF C10 < 10 GO TO TIE. COBULTST 
eee 008120. MOVE 4 TO.RSTN (3)00.. 0... otha: <n Cpu sey Bes teeabup ee ole sen Moss, oO UWE ES Tease Accel Bo Genoa ace 
a 008130 T1E, EXIT. COBULTS! 

, 008140 11-2 MOVE 3 TC RSTN (3) ANSN (3). CUBLULTST 
Oca ce OOS 1380. fc) GOL TO Wein os teens, Siete an Se ae te, ea are ee COBULI ST «cute cuneate 
008160 T12. MOVE 5S TO RSTN (3).. COBOLTST 
LI 008170 4, MOVE 3 TO CVN. COBOLTST 
pu 008180.) 6 MOVE 1 TO CVA. _ me Bilan caine ates, Sag), cate ORO TS Tins eth: 
| 008190 MOVE 3 TO AUN, COBOLTST 

@ » 008200 PERFORM VERIFY. CUBULTST 
BOOB 210. LE EXIT : : sp fe teat tee na EATS Tee 28a bs ec 
Ps 008220 COBULTST 

@ 008230 COBULTST 


eae 


@ \e 
008250 COBULTST 
008260 COBULTST @ 
008270 PQO2 SECTION, ., oe . COBULTST Pella harnesses ree a 
008280 214. MOVE "“POO2" TU SECI@=NO. COBOLTST 
008290 MOVE "LABEL" TO SECT@TITLE, COBULTST 1@ 
008300 PERFORM 1, . COBOLTST oh tsa A en al ES a Daal te seeree 
008310 PERFORM AAt, COBULTST ‘ 
008320 PERFORM 1A, CUBULTST lle 
008330 PERFORM AA, COBULTST les tease tal saaamar! 
008340 PERFORM Ate COBOLTST ar 
008350 PERFORM A=A. CUBULTST he 
008360 PERFORM 1"A, COBOLTST Seas a a 
008370 PERFORM AwwA. COBCLTST "s 
008380 PERFORM 1234567890"ABCDEFGHIUKLMNQPQRS, COBULTST @ 
008390 GO 10 1234567890,. ; COBULTST ‘ 
008400 14 MOVE 1 TO RSTN (€1)» ANSN (4), CUBULTST _ 
008410 AAL. MOVE 2 TC RSTN C2)» ANSN (2), COBULTST @ 
008420 1A. MOVE 3 TO RSTN (3)2 ANSN (3), _ COBOLTST | a lene 
008430 AAs MOVE 4 T@ RSTN (4)5 ANSN C4), CuBOLTSt " 
008440 A"1. MOVE 5 TO KSTN (5)» ANSN (5), COBULTST l@ 
008450 AwAe MOVE 6 TO RSTN (622 ANON (6)o. COBOLTST Sg eee 
006460 17A, MOVE 7 TO RSTN (7)» ANSN (7), CUBOLTST “iE 
008470 As*A, MOVE 8 TO KSTN (B)* ANSN (CB), COBULTST 4@ 
008480 1234567890"ABCDEFGHIUKLMNOPQRS, MOVE 9 TO RSTN (€9)2. ANSN (9). COBOLTST. eid eRe BSED oe ee a ret et Tee S| 
0COE490 1234567890, MOVE 9 TO CVNe COBOLTST a4 
008500 MCVE 1 TO AUNs COBULTST 21@ 
008510 PERFORM VERIFY, GOBLLTST 
008520 2E. EXIT. COBULTST 
008530 CUBULTST 
008540 COBULTST 
008550 COBLULTST 
008560 COBULTSI 
008570 P0O03 SECTION, COBULTST 
008580 031. MOVE "POO3" TO SECT=NQ. COBOLTST 
008590 MOVE "SENTENCE AND STATEMENT 70308 7o3e9" TO SECT#TITLEs COBULTST 
008600 MOVE SPACE TG Al. oe . . COBUGLTST 
008610 MOVE 1 TC RSTN (1). CUBULTST 
008620 ADD 1% RSTN (1) TO RSTW (2)3 COBULTST 
0.08630 MOVE 3. To RKSTN. (323 COBOLTST 
008640 ADD 1 TO ANSN (1). COBULTST 
008650 NOTE COBOL SENTENCE ANL STATEMENT STRUCTURE» NOTE Is COBOLTST 
008660 DEFINED TO Be FOLLOWED BY aNY BASIC SYMBOLS SUCH cOBOLTST | 
008670 AS 1 © 93 A THRU Z} 4#*/z=>< ETC TERMINATED BY A, COBULTST 
008680 MOVE 2 TC ANSN (2)3 COBULTST 
008690 MOVE 3 TC ANSN (3)3 . COBOLTST 
008700 MOVE 1 TG C103 COBULTST 
008710 MOVE 4 TQ C30. COBOLTST 
008720 032+ IF C10 = 4 THEN NEXT SENTENCE ELSE IF Ad = "A™ NEXT COBOLTST 
008730 SEWTENCE ELSE MOVE C30 TO RSTN (C30)3 COBULTST 
008740 ADD C30 TO ANSN (C30) COBULTST 
008750 PERFORM 039 GU TY O35... wpsrscdniianetitein tides Rt ore, neaie seoccd tote TS. 
008760 GO TO 033 034 DEPENDING ON C10, COBOLTST 
008770 033, MOVE C30 TU RSTN (C30), COBOLTST 
0087680 ADO. 30 TO.ANSN .CC3Q)4. Sedan eA Da etal woh toe hoe thts) _ COBOLTST. 
008790 ADD 1 TC C103 COBULTST 
008800 ADD 1 TG C303 COKBULTST 
008840. . ; GOTO. O39 Bg i ee cnn ne viet nee StetSA oth aoe . COBOLTST 
008820 035. MOVE 6 TQ RSTN (6)3 COBOLTS! 
008830 MOVE 6 TO ANSN (693 COBULTST 
..008840. . MOVE. "AN TO ALg oo oN SS sale tl ca Tae tat eee ae ee OL OA ST Se he oe ae 
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008850 
008860 
008870 
0088a0 
008890 
008900 
008910 
008920 
008930 
008940 
008950 
008960 
008970 
008980 
008990 
009000 
009010 
009020 
009030 
009040 
009050 
009060 
009070 
a09080 
009090 
009100 
009110 
009120 
009130 
009140 
009150 
009160 
009170 
009180 
009190 
009200 
009210 
009220 
009230 
009240 
009250 


009260. 


009270 
009280 


Q0%290.. 


009300 
009310 
009320 
009330 
009340 


. 009350 


009360 
009370 
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009390 
009400 


009410. 


009420 
009430 
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034, 


039. 


036. 


JE. 


GO TO 032. 

MOVE 7 TC RSTN €7)3 ANSN (7), 

ADD .1 TC C1Q; ee eee 
IF Ci0 = 3 THEN MUVE 8 To RSTN CB) ANSN (8), 
GO TO O34. 

MOVE 9 Te RSTN (9)3 

ADD RSTN (9) TO ANSN (9)-6 

MOVE 1 TC AUN. 

MOVE 9 TG UVNe 

PERFORM VERIFY. 

EXIT. 


POO4 SECTION, 


41. 


MOVE "POQ4a" TO SECT*NQ,. 
MOVE “"CONCITIONAL STATEMENT" To SECT= TITLE. 
MOVE 1 TO C10. 
IF C19 > O MOVE 1 TO RSTW C126 : 
IF C10 < 0 MUVE 1 TO RSTN (2) ELSE MOVE 2 TO RSTN 425 
IF C10 > O NEXT SENTENCE ELSE MOVE 4 TG RSTN (3), 
MOVE 3 TO RSTN (3), 
IF ¢190 < C MOVE 3 FQ RSTN C4) ELSE NEXT SENTENCE. 
MOVE 4 TQ RSTN (4). 
IF ¢10 > 0 1F c10 = uv MOVE 6 TQ KSTN (5) ELSE MOVE 5 TO... 
RSTN (5) OTHERWISE MOVE 6 TO RSTN (3), 
IF €10 < © MOVE § TO RSTN (6) OTHERWISE JF C10 > O MOVE 6 TO 
RSTN (6) ELSE MOVe O Tu RSTN (46). a 
IF C40 > GO IF C10 = O MOVE 4} TO RSTN (7). ELSE MOVE 7 TO 
RSTN (7) ELSE IF C10 = VU MOVE 2 TE 
RSTN.(7) OTHERWISE Move 
3 TO RSTN (7)-6 
IF C10 > Oo IF ¢10 > o IF C10 > g MOVE g§ TO RSTN (8) MOVE 
9 TO RSTN (9) ELSE MOVE 4. TU RSTN (8) OTHERWISE MOVE 5 TO. 
RSTN (9) ELSE IF C10 = Y ITF C10 < U MOVE O TO RSTN (8) 
OTHERWISE MOVE 8 10 RSIN (9) ELSE MUVE O TU RSTN (9), 
IF. c1O > C.IF ¢c19 < 0 MOVE 1 TO RSTN (10) ELSE MOVE.10 To. 
RSTN (10), 
IF c10 > OC IF ¢10 > Q IF C10 < O mOVE 1 TO RSTN (11) ELSE 


IF.Ci10 > O IF Ci0 < O MOVE 1. TU RSTN (11) ELSE. MUVE. 14.70... 


RSTN (11).6 

IF C10 > O ADD 14 TO C10 MULTIPLY 3 BY C10 SUBTRACT 4 FROM 
C10 IF ¢10 > QO MOVE.142 TO RSTN. (12) MOVE. 13.70 RSTN 6433) 
ELSE MOVE 10 TO RSTN (12), 

IF C10 < 0 MOVE 1 TO RSTN (14) ELSE ADD 1 TO C10 SUBTRACT 
1.FROM C10. IF c1O «< O MOVE C10 Jo RSTN (14) ADO.1..1o.010 
ELSE mOVE 14 TO RSTN (14) GO Tuo 4éd, 

MOVE 10 TG RSTN (15) GO TU 43, 


MOVE 15 TQ RSTN. (15)... cle A dar es bins plese tandiR be OTR abe Ta 


MOVE 1 TO AUN, 
MOVE 15 TO CVN, 


_ PERFORM.44 VARYING C20 FROM 1 HY 1 UNTIL. C20.> CVNe 


“GO TO 45. 


MOVE C20 TC ANSN (C20). 
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009450 COBULTST 
009460 COBULTST 
009470 ae Me abet otis BE ie, om eosice Odette inde Bde le nth Da ddnieo at bel oe Send, 2 MOO UIT Sf 
009480 PO05 SECTION, COBULTST 
009490 51. MOVE "POOS5" TO SECT#NO. COBOLTST 
009500 MOVE "BOOLEAN cONDITION” TO SECT*TIILE, oh dit ding wpe: @- este fete as COBOL TST 
009510 MOVE 10 TC W206 COBULTST 
00¥520 MOVE "99" TO AN2,. COBULTST 
009530. MOVE “PQR" TO. AN3.« cus - mints. Auearcenegeees wieeans COBULTST.... 
009540 MOVE 20 TO D300. COBULTST 
009550 IF KT MOVE 2 TO RSTN (1) COBULTST 
009560 IF KOQNS > 9. AND. < 21. MOVE 1 TQ ANSN (1)a... . COBOLTST 
009570 IF AN2 IS NUMERIC OR AN2 IS ALPHABETIC MOVE 2 TO RSTN C2)e. COBOLTST 
009580 IF 020 IS POSITIVE AND Ane IS ALPHABETIC MUVE 1 TO RSTN (3)¢ COBULTST 
009590 . MOVE 3 Ta RSTN. C3)... .. .. COBULTST 
009600 IF 020 = 10 OR AN2 IS NUMERIC MOVE 4 TQ RSTN Ce COBOLTST 
009610 IF p20 # 10 OR aN3 IS NUMERIC MOVE 1 TO RSTN (5), COBULTST 
009620 MOVE.5 TO RSTN (3),. |. : : w tena + -COBOLTST 2 
009630 IF 020 = 10 MOVE 6 TU ROTN (Oe CUBULTST 
009646 IF eoee = 10) MOVE 7 TU RSTN (7), CUBULTST 
009650 IF 030.5 020 AND.020 4 10 MQVE S.To RSTN (8)... sit . CQBOLTST. 
009660 MOVE & 16 RSTN (8). COBLLTST 
009670 IF AN2 IS NUMERIC AND AN3 IS NUMERIC MOVE 1 TO RSTN (9)6 COBOLTST J 
009680 MOVE 9 JO RSTN (9), ©... .. cs itt etme , COBOLTST. . 
009690 IF p20 IS FOSTTIVE OR AN3 IS NUMERIC MOVE 10 TG RSIN (140), cUOBOLTST 
009700 IF AN2 IS NOT NUMERIC MOVE 99 TO RSTW (11). COBOLTST 
009740 MOVE 14 TO RSTN (11), eee ee GOBOULTST 
009720 IF AN3 IS NOT NUMERIC MOVE 12 TO RSTw (12). COBOLTST 
009730 IF NOT 020 = 030 MOVE 13 TO RSTN (1306 COBOLTST 
009740 IF 920 210. MOVE 14 TO RSTN (14), sbthe oo 06206m68 
009750 IF D20 = 10 OR (D20 = D030) MOVE 15 TU RSTN (15), COKOULTST 
009760 IF net (D20 4 10) AND (O2Y 4 030) move 16 TO RSTN (16), COBULTST 
009770 IF 020 IS POSITIVE AND NGT O20 = D3Q MOVE 17..TO..RSTIN 047)e COMOLTST. 
009780 IF CCNOT (O20 4 10))) MOVE 18 TO RSTn (18), COBOLTST 
009790 IF (D020 = 030) OR (N20 = 10) AND CNOT CAN2 IS ALPHABETIC)) COBULTST 
OoOo9800 MOVE 18 TO RSTN (16). ; cOBOLTST.. 
009810 IF 020 = 10 OR AN@ IS NUMERIC AND ANI I5 NUMERIC MOVE 19 TO COBULTST 
009820 RSTN (19). COBUOLTST 
009830 IF 020 2 10 UR An2 IS NUMERIC. AND AN3 Is.-NUMERIC AND.D30.=8... COBULTST.... 
009840 20 OR O20 #4 030 AND ANZ YS ALPHABETIC MOVE 20 TO COBOLTST 
009850 RSTN (20), ’ COBOLTST 
009860 MOVE 20 TO CVN, iy cut tee tonad: UL SN, cesta cen. « nicutest visitas 
009870 PERFORM P#51 VARYING C20 From 2 BY 1 UNTIL C20 > CVNe COBGLTST 
009880 MOVE 1 TO AUN.’ COBULTST 
009890 GQ TQ 52. WG the nh Ueeak es =e, COEOLT STs. 
009900 P#51,. MOVE C20 TO ANSN (C20)6 COBOLTST 
009910 E51. EXIT, COBOLTST 
009920 52. PERF@RM VERIFY, . Mae atroegte 2 Bs Ra Spd te Non, . _COBOLTST 
009930 5E, EXIT. COBULTST 
009940 - COBULTST 
Se OO oc ur, ayo teats tients veanng ea peeled Roane! ape AR ho ode: Rosai ool nag ate ce eon hte cals aces ee ache OO WO 1 
009960 COBOLTST 
009970 COBOQLTST 
009980 PO06 SECTIONe.... Se era Bh eR pat ete ol eit eet re Oe Le el koe 
009990 61» MOVE "POO6" TO SECT= Ngee COBULTST 
010000 MOVE “RELATION 764.11 " TO SECT*TITLE. COBOLTST 
010010. MOVE 1 16.c10, c20,.. a Ae OER ee re 2 |) Oh 9 
019020 MOVE 1.0 TO C42. cOBOLTST 
010030 MOVE #1.0 TO C52, COBOLTST 
iia 8 S60 ae 9 See” BoA ec Sa JBOWTST 


@ 
010050 MOVE 1.99 TU C73. COBOLTST 
@ 010060 MOVE 1 TO C10» D20» 042» 052, COBULTST 
woe ee. 010070 SOTERA OOS C20 “MOVE Se STUCRGIN OP ¥a- 0h 5 cl lho leat he Dilactes org ig de areas OBOE TS Bo cece: sce 
010080 IF C42 = C10 MOVE 2 TO RSTN (2). COBULTST 
T 010090 IF C10 = C20 AND = C42 AND = D4z MOVE 3 TO RSTN (3). COBOLTST 
oo 910100 IF ci0 = C52 AND D20 AND 042 AND C52 MOVE 4 TO RSTN (C4)0..... COKOLTST : 
010110 IF C10 = C20 UR C4e¢ AND C52 OR D1O AND D052 COBOLTST 
@ 019120 MOVE 5 TO RSTN (5). COBULTST 
a 010130 . IF C10.5.¢20. AND C30.>.C/3 AND C52. THEN MOVE 6 TO RSIN (6). COBULTST..... 0 wu. 
7 019140 IF c30 = 010 MOVE 99 TO RSTN (7) ELSE IF > MOVE 7 TO COBULTST 
r 010150 RSTN (7). COBULTST 
. 010160 IF.010 = C30. MOVE. 99.10. ROTN. €8). OQThERWISE IF.2 MOVE ge 10... COBOLTST. .. . 
: 019170 RSTN (8) ELSE IF < MOVE 6 TO RSTN C8). COBOLTST 
@ 010180 IF C10 = C73 OR > C73 MUVE 99 TU RSTN (9) ELSE IF < COBOLTST 
— 019190. MOVE. @ TOURSTIN. C924. Eee ee een DE cc): olin 2: ee ern 
is 010200 IF C73 2 C40 AND C30 > C20 TREN IF > C73 MOVE 10 TO COBOLTST 
. 010210 RSTN (10). COBULTST 
ee 010220 IF C10. # C20 AND 010.> CiO MOVE 111. TO. RSTN (11) 33 COBOLTST.U 
3 010230 ELSE IF = MOVE 11 TO RSTN (11). COBULTST 
@ 010240 IF C10 = C20 AND (D10 OR O20 AND C73 > C10) GR < C30 COBOLTST 
Ces ve, OF9250 MOVE. 22. TO. RSTN (1226. Fe — COBULTST... 
a 019260 MOVE 12 TC CVN, COBULTST 
. 010270 MOVE 1 TO AUN, | COBULTST 
“oo. 010280 PERFORM. Pe61 VARMING C20. FRUM 1 BY 1 UNTIL C20.> CVN.  COBOLIST.. 
q 010290 GO TO 62, CUKOLTST 
r 0190300 Pe61. MOVE C20 TO ANSN (C20)5 COBULTST 
a: tee 010340 61E. ExlT. COBULTST..... 
5 : 010320 62, PERFORM VERIFY. COBOLTST 
O° 010330 6E, EXITs COBOLTST 
5 a 0340 COBOLTST 
ao 010350 COBULTST 
A 010360 COBULTST 
Vom ww vere O10370.. ss BPP 05 C= 0 08 Lin ie nn eC oe ce eee ee See ee eee are) 
av 010380 COBULTST 
@° 010390 POO? SECTION. COBULTST 
MY wenwenne O§F0400 71, MOVE. "“PoO7" TO. SECT#=NO, ets de lt: Sion eo ease. aa elder okie: 2 Ae ORDETS Te os: 
4 019410 MOVE "RELATIUNAL OPERATORS 7=4ei2 " TO SECT@TITLEs CUBULTST 
@- 010420 MOVE 1 TO C10» D010. COBOLTST 
a ti eceg PROMS OS oa tf MOV Ee, VO! LOR V2 Og Sioa teh ncwsirscssceesitionss kthtseiubnieesneS a itera cine vay nieen ee COBUET ST: 
e 019440 MOVE 1,5 TC C42» C52, COBULTST 
010450 IF C10 EQUALS 010 MOVE 1 TO RSTN (1). COBULTST 
Me 010460. IF C10. # O10. MOVE 1. TO ANSN Ch)e. | oe i ttt. COBDLTST 
eo 019470 IF ci0 IS UNEQUAL TO C20 MOVE 2 TO RSTN (2), COBULTST 
@: 010480 IF C10 # C20 MOVE 2 TO ANSN (2). COBLLTST 
Pipe ctl e 04 OWN O...." TE O90 “EXCEEDS C10 MOVE 2S TORS TN O98 gods ec ccnen ho de writ oh lauacier ee COBOL TST ox cowsy A eter eee ve al 
Ke 010500 IF ¢20 > C10 MOVE 3 TO ANSN (3)0 COBOLTST 
@ 010540 IF C10 YS LESS THAN C20 MOVE 4 TO RSTN (4), COBULTST 
mo 0590... 6. IF C10. « C20 MOVE 4 TO ANSN (4)... eee ee RETR RU re 1 31-10 Oe 2. i Re ne a 
es 019530 IF C20 IS NOT LESS THAN C10 MOVE § TO RSTN (5), COBOLTST 
@' 019540 IF c20 2 C10 MOVE 5 TO ANSN (5), COBULTST 
bce lea 0190550 IF €20 IS GREATER THAN C42 MOVE 6 TO RSTIN CO)e — ss  COBUL TST 
Wa 019560 IF C20 GREATER THAN CLO MOVE 6 TO ANSN (6). COBOLTST 
as 010570 IF C20 IS GREATER C10 MOVE 7 TO RSTN 67), COBOLTST 
py 0580) CCF C20 GREATER C10 MOVE 7 TO ANSN (7)_e COBOLTST 5 
ke 010590 IF C10 IS KOT GREATER THAN C20 MOVE 8 TO RSTN (86 COBULTST 
OF 0109600 IF 020 $ C20 MOVE 8 TO ANSN (8), COBOLTST 
Q19610. 000. TF C10 15 EQUAL TO D10 MUVE 9 TO RSTN (9). ie soe hatte ance ee UE ES Te card 8, 
019620 IF C10 NOT EQUAL TO C20 MOVE 9 TO ANSN (9), : COBULTST 
@ * 010630 IF C10 LESS THAN C20 MOVE 10 TO RSTN (10), COBOLTST 
_._.010640 IF C10 LESS C20 MOVE 10 TU ANSN (10), became COBOL YST 


@ 
010650 IF C20 2 CH2 MOVE 11 TO RSTN (11). COBCLTST 
@ 010660 IF C20 GREATER C42 GR EQUALS MOVE 11 TO ANSN (11). COBULTST 
y. 010670 IF C2Q GREATER THAN CLO. AND C42 aND. C32. GREATER.THAN..C42..0R. COBULTST. 
010680 EQUALS C42 MOVE 12 TO RSTN (12), COBULTST 
@. 010690 IF C20 GREATER C10 OR C20 EQUALS C10 MOVE 12. TO COBOLTST 
: 010700 ANSN. (12), 7 teria i ate Cy Misi patathe ie ernie VEU LSE nc 
: 019710 MOVE 12 TC CVN. COBULTST 
i 010720 MOVE 1 TO AUN, COBOLTST 
on ..010730. _ PERFORM. VERIFY, ee ee ee oe ee ee Seals, eediaee! - COBLLTST x 
. 019740 7E. EXIT. COBOLTST 
eo 010750 COBOLTST 
am 010760 . COBOLTST... _ 
i 010770 CObULTST 
eo. 010780 POOK SECTION, COBULTST 
Meweeceennen -OL079O 81, MOVE "POOR" TO SecT=nd, . " cee CO BOULTST 
iS 010800 MOVE "OBJECT OF RELATION 7.4.14 " 70 SECT*TITLEs. COBOLTST 
a 010810 MOVE #1 TC C10, COBULTST 
——— . 040820 MOVE .#3.76.C20, meds . Avteeend 22 tao ames OS ich reed PRB EL ESS: ude, 
na 019630 MOVE 33.33 TO C42s C73» D422» O94, COBOGLTST 
eo” 010640 MOVE 1 TO DiO» RFZ1 OF MISC. COBOLTST 
MV ovntotatuten cst OB SO: .MOVE..3. TO..0208 RXL.0F MISN, ..... Sate ied. aasaaver tase X COBULTST.... 
i‘ 010860 MOVE “"ABCDEFGH™ TO ANi» AN2s ANS» ANBe COBOLTST 
@~ 010870 MOVE ZEROS TO C73» GINTe COBULTST 
ay .010880 MOVE SPACES TO CRP#0S2s AN3...... SB Sect ae COBOLTST . 
= 010890 MOVE ALL "WXYZ" TO GRP=DSls RDO2 OF HUG OF MISN» “RSS2 OF “MISPCOBULTST 
@- 010900 MOVE 2 TO GON, CoBULTST 
tee i OLN 9LO MOVE. "IJKL" TO RFYLs BFYZe . oe _.. COBULTST 
, 019920 IF CRP=0S2 = SPACES MOVE 18 TG RSTN (18), COBCLTST 
@ 010930 IF 1 = C1C MUVE 1 TO RSTN (1)¢ COBULTST 
Se eee te 010940 | IF c20.2.2,9¥999 MOVE 2 TU RSTN (2), 2 -. COBULTST 
Bis Ve 019950 IF C73 = ZEROES MOVE 3 Tu RSTN (3). COBULTST 
"@» 010960 IF "A" = AN1 MOVE 4 TU RSTN (4), CUBOLTST 
eo Mies le “OLO97O IF AN3 = ALL SPACES MUVE 3 TO RSIN C5)0 200 kc ee we  COBOLTST. 
oe a 010980 IF C10 = 040 MOVE 6 TO RSTN (6), COBOLTST 
se Be 040990 IF GOA (3) 4 RX1 OF MISN MOVE 7 TO RSTN C7). COBULTST 
as 011000 IF C10 + 4.4.GN (3) MQVE 8 TO.RSIN (Bde... |... .. . COBOLTST.. a 
ie 011010 IF C10 * Gn (4) 3 GN (3) MOVE 9 TO RSTN (9) CUBULTST 
e~ 011020 IF C10 + C20 * C30 # C30 / C10 + (3 * 673) COBULTST 
ae 011030 MOVE 10. IU RSIN (10)... Shs Sica eta tate lean ind Bobb tars OMOEA LEST S Tore oo cao, aacteast 
a 011040 IF C42 ¥ C73 MOVE 11 TU RSTN C11), COBOLTST 
e- 011050 IF C42 = 094 MOVE 12 TO KSTN (12), COBULTST 
on 011060 IF ANS > AN2. MOVE 13 TO RSTN (13)0 ‘og, atleae atte Gwin ai CUBES Dts oe es 
aa 011070 IF ANS a RDD2 OF RD4 MOVE 14 TU RSTN (14), COBULTST 
@. 011080 IF RODD OF RU2 £RSS2 OF MISP MOVE 15 TG RSTN (15)-— 12922967 
ie -. 911090... TF ROD2 IN RD4 > RFY1 MOVE 16 TO RSTw ClOd,e ss CO BOLTSTO 
iS 011100 IF RFX1 < RSS2 OF MISP MOVE 17 TO RSTN (17), COBULTST 
@* 011110 IF GINT * ZEROS MOVE 149 TO RSTN (19)6 COBOLTST 
MY eet ed a MEAL ZO . MOVE 1 TO AUN. _- eae eee eee eT Oem Tee! 6-18) Ay 0 ee ne oh ee 
be 011130 MOVE 19 TC CVN, COBULTST 
@| 011140 PERFORM 82 VARYING C30 FRUM 1 BY 1 UNTIL C30 > CYNe COBULTST 
ee OLIASO .... .GO. 10 83, . | gets ND eas Bk ee Sid iad See Rencontre, com ore OB OLS Pe ahve ie Oia a 
011160 82, MOVE C30 TO ANSN (C30). COBULTST 
Ya 011170 83+ PERFORM VERIFY, COBOLTST 
% OLIN OO Boe EXT os cc cn pee Be a ee i le ln ew oe eat ee OO BDL TS Te oe ene a 
011190 COBULTST 
@' 011200 COBOLTST 
al eheateepee tee UO is 0 Aeitue peu et ates bu ce Dy eee ft Olas Nae othe chao pee Na re li oO BOUL ONS: Ie 
" 011220 COBOLTST 
eon 011230 | COBOLTST 
ea DAT ORG: POO SECTION sco ceed sc ata Serine ul gdm snd guy wee poe a a COBO TST one ook clon. 


@ 6 \e 
011250 0916 MOVE “Poco” TU SECT#=NO. COBULTST 
e 011260 MOVE “"FCRMULA 7.4.15" TO SECT=TITLE. COBOLTST e 
ee ae 011270 _MOVE..1.TO..c1Os. O10, tarsky eee tosh ee — COBULTST.. 0. i SNe SO Nats ah Nt Be Pe anne 
1 011280 MOVE 10 TO C203 COBULTST ’ 
eo 011290 MOVE 0.50 TO COZ} COBULTST 1@ 
oe) O42300 MOVE 5.56.TO Ca23.. Pee Nat: 18) 2. ta Se ee Ree a eee ? 
011310 MOVE = 3,25 TO C52, COBOLTST 4 
. 011320 IF "C10 4 3500 mOVe C10 TE RSTN (1). COBULTST 1@ 
- venture ee OLLEIO. . IF... PLUS ¢20 > MINUS C52. + C42 MOVE.2.TO..RSTIN ¢ede oo COBUL TST. tl tens EOS . 

: 011340 IF MINUS C10 #,3500 MOVE C10 TO ANSN (1)¢ COBOLTST ? 
e- 011350 IF #C20 > "C52 PLUS C42 MOVE 2 TO ANSN (2), COBULTST |e 
lee i ats oa OLS BSO TF-C10...8 C20 8-02 09..C02) 0 M4 CC10. 2 2) MOVE 3. TQ. COBOLTST. 4 
. 011370 RSTN (3). COBULTST a 
@ 011380 IF C10 MULTIPLIED BY C20 = (C42 MINUS COZ) TIMES 4 COBULTST "@ 

ah 011390 .. DIV IDEG Oi (C 10 oe 2) TNE ME STU AN SN C8 gets easte cue ty OB OLE SM sien, yagltoaiitg aun Se pias ; " 
F 011400 IF C52 IS NEGATIVE MOVE 4 TO RSTN (4), CUBOLTST bi 
@ - 011410 TF MINUS C52 1S POSITIVE MOVE 4 TO -ANSN (€4)- COBOLTST @ 
pepaeer 011420. wo APE CPO we C02 eM CA! OO. MOVE. 5..TO BSTIN 65)... = eR OeY oa et TOY Ses tb CORE eT ERO Lege ee AMEE A IR Sa tty Rte ro eRe rea ia 
| 011430 IF C10 PLUS cO2 + 4 MINUS C42 [1S ZERD MOVE 5 TO ANSN (5)6 COBULTST i 
e 011440 IF C10 + C52 * C52 / Cu2 > 0 MOVE 6 TO RSTN (6) COBOLTST "e@ 
fe ee » OL1450 IF C10.PLUS ¢92 TIMES C22 DIVIDED aY c42.18 pgsllive ...-... 6@8uLTST. - SSS OA eS Ges a i ced crc tle eciea  ah y 
" 011460 MOVE 6 TO ANSN (6)e< COBULTST ' 
oe. 011470 094, go To 092 093 DEPENDING ON C10 * C20 MINUS (C10 * 6) COBOLTST 1@ 
a O1ldao ~“¢ 4 = O10). ... ; bd . CUBOULTST...... ‘ CaSO, Pelcmteteane SB Pe tone co cere a Oe Pe Peo 
- 011490 093, MOVE 7 TC ANSN (7), CUBCLTST | 
T 011500 GO TO 095, COBULTST 31@ 
re ES le 4a 011510 092. MOVE 7 TO RSTN (7)3 COBOLTST decvge ete teehee! Meteo. 24 
Bk 011520 ADD 1 TC D10, COBULTST 2 
a 011530 GO TO O94, COBOLTST 1@ 
Be ee 011540 095, Go To 096 097 DEPENDING ON C10 ** te SCOR OTST? c.0% enc ota 3a ke nes 2 
a 011550 097. MOVE 9999 TO RSTN (6). COBULTST a 
A al 011560 096, MOVE 8 Tc RSTN CB), ANON (8), COBOLTST ahd 
SN Serine: eee CANAL O.. IF C10 * C20.**.2 = 100 MOVE 9 TO RSTN. (De woe ey and atte OMELET GGT a ec sn a caico paces ected oes Se ag ean ba 
ie 011580 IF C10 MULTIPLIED BY “620 EXPONENTIATED BY 2 EQUALS 100. COBULTST 
e« 011590 MOVE 9 TQ ANSN (9), COBULTST 1@ 
peta adden aw OOO. os IF.CiO0.+ C20. .* 2. *4 (C10 4 610) / 2." C52. 5.25.25 ....... .COBOLTST.... ee eee eT ee a 
a 011610 MOVE 10 TO RSTN (102, COBULTST Pt 
e« 011620 IF C10 PLUS C20 TIMES ¢ EXPUNENTIATED BY (C10 PLUS ¢10) COBOLTST 0 
se. 11630 DIVIDED BY. 2 MINUS C52 EQUALS 25.025. MOVE 40 TO owen COBULTST oo cuc, coe cneeust ee ee pe 
a 011640 ANSK (10). EOSOLTS! ss 
e@« 011650 MOVE 1 TO AUN. COBULTST 4@ 
my oo .. 0411660 MOVE 10 TO CVN, . 7 _COBULTST. ae etre eee e Lane as 
“0 011670 PERFORM VERIFY, . COBULTST i 
@» 011680 COBULTST @ 
vo... 6012690. geek POC UBUL TS Tet oo cen mci S 4a 
‘ 011700 COBULTST hi 
3 011710 COBULTST “@ 
{OLE 20 | ee ei EB OLE sc cee ne ctees 4 
im 011730 COBULTST " 
@” 011740 PO10 SECTION, COBULTST “1@ 
Jo OTN 750 OL, MOVE "POLO" To SECT=nO,.. ses setts tasty ahem OMIT S Ye at “8 
9 011760 MOVE "ALGEBRAIC EXPRESSION RULES" TO SECT#TITLE, COBULTST s 
@F 011770 MOVE 2 TO C305 COBULTST *1@ 
ey OLE BO SMM NV ig a Fe pce ater a i Mi Ow el aes os oe ae ED Stee oo ee, Ae at 
2 011790 MOVE 10 TO C20, COBULTST : 
@* 011800 MOVE 2,50 TO C42, COBOLTST A@ 
| OLB1O. MOVE @1525 To 5d. as Stet eg rete OT Sh Scarce ec ont 5 
B) ks 011820 IF 620 + C10 = C42 = 8,50 ‘MOVE G10 TO RSTN Ci), COBOLTST 55 
@r 011830 IF C10 * C20 / C42 ='4 MOVE 2 TO RSTN (2). COBOLTST @ 
A Ot BAO O20. ¢ (C10 = C42) 2 8.50 MOVE 3. TO RSTIN (3), cofoLrsr oo py 
® @ @ 


Se eee EN Yee a 
: 


Fe. 


ek, ee ee 


Jsae . tee PH. ye 
A 5 


011850 
011860 


011870 


011880 
011890 
011900 
011910 
011920 
011930 
011940 
011950 
011960 
011970 
011980 
011990 
012000 
012010 


042020 


012030 
012040 
012050 
012060 
012070 


0142080 


012090 
012100 
Qlelio 
012120 
012130 
012140 
012150 
012160 
012170 
012180 
012190 
012200 
012210 
012220 
012230 
012240 
012250 
012260 
012270 
012280 
012290 
042300 
012310 


012320 


012330 
012340 


042350. . 


012360 
012370 


.Q123B0. 


012390 
012400 


» iO L241O 


012420 
012430 


-O124GQ. 2. 


IF C42 * (C20 / €10) = 25 MUVE 4 TU RSTN (4), COBOLTST 
IF C10 * (+010) * ("C10) = *1 MOVE 5 TO RSTN (5), COBULTST 
IF C10 * C™C1O + CLC20 * C10). +4 6522) = 7.75 MOVE 6 TO... COBULTST S be pene Maes ee, nat a ot es 
RSTN (6), COBULTST 
IF (clO + C20) * (C42 + (52) + (610 * C20 “ (C10 + C10)) COBULTST 
= 18.75 MCVE 7 TO RSTN (7), . COBULTST — sos ie Rie ie i el at oe sla 
IF C10 + C20 * Che = 20 MOVE & TO ROTN (8), COBULTST 
IF C20 + C20 / C42 "C10 * C42 = 11,50 MOVE 9 TO KSTN (9), COBULTST 
IF (C20 # C20) 4.642 *.0¢010 * ¢42) = 5.5 MOVE 10 Ta... COBULTST Fe ee ee eee RE PIR. ee ORCC 
RSTN (€10).¢ COBULTST 
IF (C10 * (C20 / (C30 * (C42 / (C10 * C30))))) = 4 COBOLTST 
MOVE 14..TO RSTN C112. a. _COBOLTST . pete tes cen hae ete ote 
IF C10 * C20 / C30 * C42 / C10 * C30 = 25 mOVE 12 TO CUBULTST 
RSTN C12). CUBULTST 
IF C10 + C20 we C30 =.1901 MOVE 13 TU RSTN (613), COBULTST 
IF C30 » C20 ** C30 = 200 mOVE 14 TU RSTN (14). COBOLTST 
IF Ci®@ + C20 ** C30 * C30 * C20 ** C30 = 20001 MOVE 15 COBULTST 
TO .RSIN C19),.0..... de Paw autes eee le hal ante ate COBOLTST..._.. se ug eg ee eects bet Set A et es oe 
IF C20 ** C30 ae (= C40) * (C20 ** C302 $ 1 MOVE 16 TO COBULTST 
RSTN (C16). CUBULTST 
IF C20 ** (C10 + 1) + C30. ** (C10 + 2) + (C42 + 4).* . COBULTST 7 Fo, pie tate PALS Nadie ti iets oh it So cc Meh Se eae od 
(C30) = 121 MOVE 17 TO RSTN (17), COBULTST 
IF C30 #* (C1O + €30 “42 7 (C30 ** (C10 + C30 = 4) * 4,0) COBULTST 
-® 0,50 MOVE 18 TO ROTN. (18), ; oe he Paes COBULTST. . 5 Si ip I ar ee a oe he Rt dee ts al 
MOVE 18 TO CVN. COBULTST 
MOVE 1 TO AUN, CUBULTST 
PERFORM g102 VaRYING C2Q FRUM 1 BY 1 UNTIL C2Q > 18.6 CUBULTST 
PERF@RM VERIFY, COBULTST 
GO TO O1L0CE. COBULTST 
0102. MOVE c20 TU ANSN (C20), CUBULTST . sdstuber tha Be SON Mae tent cu EE Aunt ae 
O1OE. EXIT. COBULTST 
COBLLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
+2 COBOLTST 
PO11 SECTION, COBOLTST 
Ol11,. MOVE "Po1i" TO SECT#Nue COBOLTST 
MOVE "PRIMARY UNSIGNEU NUMBER DATA NAME 7o4eh9 = 22"  COBULTST.. - ae ea Bafa es ooh ht Cot Bec 
TO SECT“TITLE. : CUBULTST 
MOVE 1 TO Cie COBULTST 
MOVE 2 TC C20. Dect Ge, Ak te aAa eM. + clea iu ph ee encebie Staats, ohioeennmces at MODULE) O&M ints, ¢ ce kt eee 
MOVE 10 TO ¢€30, COBOLTST 
MOVE 23,45 TO C42. COBOLTST 
MOVE .O, 25. TO.cO2,. .... Sig 6 etc oe tia oA A PV de 8S. SOY agp ect Bi 
IF C20 ## (C42 = C30 "C02 = 0620) > 8192 ‘MOVE 1 TO. COBULTST 
RSTN (1), COBULTST 
1F.23,20.3 C42." C02... MUVE 2.70 RSIN C2). COBOLIST 0 
If c10 = ¢20 = ¢10 MOVE 3 TU RSTN (3), COBOLTST 
IF C30 ww (C20 = C10) 3s 10 MOVE 4 TU RSTN (4), COBULTST 
IF .C42 4 C30 2 33,45 MOVE 5 TO RSTN (5), 2 COBOL TST OU UU 
MOVE 123.45 TO GN (4). COBULTST 
MOVE ALL 3 TO ROD2 OF RO2 UF MISNe COBUOLTST 
IF.GN (4) = C30 «#* C20.+ C42. MUVE © TO RSTN (6), 8 §= COBOLTST. . ee ee 
IF RX1 OF RD2 OF MISN = Rx2 UF RDDZ UF RD2 OF MISN COBOLTST 
MOVE 68 TO RSTN (8). COBOLTST 
IF.RX4L OF MISN + GN (4) >. 7514 * CJO** C20 / 2 + GN (C4). COBDLTST. 


Véla bile.” 


bs) 
6 


012450 
012460 
0124670 
012480 
012490 
012500 
012510 
012520 


012530. . 


012540 
012550 


. 012560. 


012570 


| CANS > E1908 6-2 2 a da eee 


+ 23,45 = (C3U * 3,15 47 1.5) MEVE 7 TO RSTN (7), 
MOVE 1 TO AUN. 
MOVE 7 TO GVN. sh Aches Seto leth Snene e aes a 
PERFORM 0112 VARYING Ceo FRUM 1 BY 1 UNTIL C20 > CVNe 
PERFORM VERIFY, 
GO. TO O11€.. 
0112. MOVE C2C TO ANSN (C20).. 
OlIE. EXIT. 
PO12 SECTION, 


012580 0121, 
012590 MOVE "PO12" TO SECTSNGs Ee ee ree Se eee eer Sete eer ee 
012600 MOVE "SIMPLE VARIABLE 7+4.23" TO SECT@TITLEs 
012610 MOVE 2 TO €10% 010, 
012620 O12A1 SECTIONse. as scp 
012630 012A11, 
012631 OPEN INPUT CUINe> 
012640 OPEN OUTPLT .TP*FL“1e TPeFe2,.. 
012650 MOVE "A" TO ANY*s DANi» WCANL, 
012660 MOVE ALL %A1" TO FA2? OF TF12 IN TeFl» FA27 OF WSTF12. 
012670 MOVE 89 TO. FA92 OF FA32. IN FaA22 OF TF14 IN TP FL 12 
012680 FAS2 OF WSTFils 
012690 FA92 OF FB24 OF IF21, 
012700 MOVE “ABC” TO AN33 
012710 MOVE 99 TG AN2, 
012720 GO To 012A12. 
012730 012A13, 
012740 IF FA433 CF FA271 OF FA9Z OF FA32 OF “FAZ2 oF TF11 UF 
012750 TP*FL=1 
012760 =. ; ; ; 
012770 FA4S33 OF TP=FL=2 
012780 ANB 
012790.. FA433 OF WSTFAL.. 
012800 MOVE 1 TQ RSTN (1) ELSE MOVE. 99 TO RSTN. Pace 
012810 IF 010 = 3 GO TU 012414, 
012820 012A12,. i 
012830 MOVE C10 Tre RSTN (C1023 
012840 ADD 1 TO C106 
012850 IF ¢c10 < 4 THEN 
012860 GO TO O12A12 ELSE 
012870 GO TO O12A1ex, 
012880 012A14, : Oe ee : D ondh aes dient ign Oh 2eIs 
012890 IF Fa451 Ce FA341 OF FA234 OF FALZ1 OF FA64 IN FA27 
012900 IN TFS2 IN TFL Cle to Lp to 1) = FAGS1 OF FA27 IN 
0429490. WSTF12 Coe 26. 22 20.2) MOVE 4 TO RSIN. C4). SUN SREY ORCI IE 
012920 ELSE 
012930 MOVE 99 TO RSTN (4). 
012940... TE. F A272 OF. FA22 OF. TELL Sf a272. oF. WSIFIY AND Fa222 oF Fe24.. 
012942 QF TF21 
012950 meNe 5 TO RSTN (5) 
) ec E ESE. Rane sph ties tel cle ssh P Mn, Ged Ao et tf snide Bs on RE 
012970 MOVE 99 To RSTN. (5a, 
012980 MOVE ALL 5 TO OC3D. 
AL2990......... PERFORM OL2A127 VARYING C10 FROM 4 BY 4 UNTIL C4O > 9. 
013000 GO To 012A142, 
013010 012A2 SECTION, 


COBULTST 
COBOLTST 


~COBULTST ... 


COBULTST 
COBOLTST 


- COBOLIST..... 


COBOLTST 
COBULTST 


COBULTST 
COBOLTST 


fs BOLTS Ts ie cosas 


COBULTST 
COBULLTST 


.. COBULTST 


COBOLTST 
COBOLTST 


COBULTST 
COBULTST 


_COBOLTST... 


COBULTST 
COBULTS1 


. COBOLTST .. 


COBULTST 
CUBULTST 


COGULTST ... 


COBULTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 


 COBULTST 


COBOLTST 
COBULTST 


 COBOLTST... 


COBULTST 
COBULTST 


COBOLTST.— 


COBULTST 
COBOLTST 


~ COBOL TST. 


COBULTST 
COBOLTST 


COBO ES To cad, see Aes 


COBQLTST 
COBOLTST 


SCO BOET S30 potent eu tee Lc, 


COBOLTST 
COBULTST 


12°22"67 
COBOLTST 


COBOLTST 
COBOLTST 


Scorer ween Od 91-1 5 Wey ec eee eee 


COBOLTST 
COBOLTST 


eee renee nreee seas TUreeemneeneens 0! + 8 Wy ¥en Wb. i ReeNae ene nee ee 


A hal 010 «Ye 


COBOLTST oon 


Bry of 0020 it Fae Sts ee ne ee RR 


013030 
013040 


i ei duets a, dahen dd pO SD 


013060 
013070 
013080 
013090 
013100 
noe ue .. OLSLIO 
013120 
013130 
013140 
013150 
013160 


013180 
013190 


‘eee. O19200_ 


013210 

013220 

013230 

013240 

013250 
Lome ss 6 0..3.260 
013270 
013280 
013282 
013283 
013290 
013300 
013310 
013320 
013330 
013340 
013350 


teen ase. 913360. 


013370 
013380 


013400 
013410 


ct 0123420 


013430 
013440 
013450 
013460 
013470 


Yonerneen ee O19480 


013490 
013500 


a O19510 


013520 
013530 


Beene ree) Cr) eee 
013550 


013560 


913570000 


013580 
013590 


Desceeesscce  OOEIO OO cesar 


. 013170... 


. 013390. 


MOVE 6 TO RSIN (6)3 
GO TO O12A14yY, 
O12AL1X.. | 
ADD 1 TO D103 
GO TO 012A13 IN 012A16 
O12A14Y. eee. cee 8 
IF 0°32 OF D@3) OF U=3 OF OC3D C1» ty 1) = O32 C1» 29 3) 
MOVE 7 TC RSTN (7)3 
OIF 0°32 .0F 0731. (2e202)..4 D732 OF D°d Ctateld 
MOVE 99 TO RSTN (8) 
ELSE 
MOVE 8 To RSTN (B23. | 
IF D=32 (3,33) > D932 OF OC3D (1923) 
MOVE 99 TO RSTN (9)3 
ELSE De cadies dndea's 
MOVE 9 TO RSTN (9)3 
GO TO 01211, 
0122 SECTION. ...... ebay Guin eRe eats 
0124147, MOVE 99 TO RSTW (10), 
012999, 
MOVE 9 TO CVNG 
MOVE 1 TO AUNS 
GO Ta OL2PERF, 
O12ai2z.. 
MOVE C10 TO ANSN (C10). 
OL2PERF, 
MOVE 4 TO.RSTN (4), 
CLOSE CDIN WITH RELEASE. 
PERFORM VERIFY, 


PO14 SECTION. 
O14i. 
MOVE."POL14" To SECT*NOS. . | E oi, axes ee 
MOVE "SUBSCRIPTED VARIABLE 7.4.24" TO SECT@TITLE. 
MOVE 1 TO ©1053 
MOVE 2.70 C193... 
MOVE 3 T@ C203 
MOVE 10 TO €30, 
MOVE ALL.."A" TO GOAWs.OC2Ds OC3Ds AN4P ANZ... 
MOVE ALL & TO OC4Ds GON» GINTS 
MOVE ALL 5S TO FA2? OF TF123 


MOVE. ALL 4.70 Fad? IN WSTF 12... ee a ae 


IF G@A (4)*1S ALPHABETIC MOVE GOA (C10) ‘TO RSTA (123, 
IF GOA OF GOAN (2) IS ALPHABETIC MOVE "AAAAAAAAAA® TQ 


IF p=21 (101) = p"32 OF 0731 InN b*3 OF OC3D (3% C10 » 3» 
C10 + 2) AND D#32 OF D=31 (C1LO» Clos DIO = C10) 
MOVE "BY" TO RSTA (C2)4 = 

MOVE "gf" To ANSA (C10. «#* C10 + C10 * 010 = 1 )e 

IF D#43 (C20 MINUS 010s Ceo PLUS C10» O10 EXPONENTIATED BY 


GN (010 ** D010) MOVE "C” TO RSTA (CeO) 
ELSE 
MOVE "ERI" TO RSTA C300 0 
MOVE "c™ TQ aNSA (C20), 
IF FAS5L OF WSTFL2 (isle letet) # AN2 


MOVE 4. TO RSTN Ch), Ne tied heg g pte eset at or edn wi canal ace 


RNS OC) a a te uae senate A en, 3 Dente tale eth aa esti heactuyte cutie et, 


CUBULTST 
COBULTST 
COBULTSI 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 


_COBOLTST. .. ... 


COBLLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
. COBUL TST 
COBOLTST 
COBULTST 
. CQOBULTST. 
COBOLTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 
COBULTST 


CQOBOLTST.. 


COBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 


COBOL TS Scents Gay ai ceteddeostet Pe 


COBOLTST 
COBOLTST 


VOOR OE TS ie ties Seo 


COBULTST 
COBULTST 


ei ORO OL TS 1 4. tes et. eae. 


COBOLTST 
COBOLTST 


— COBOLTST OO oo 


COBOLTST 
COBULTST 


—COBULTST oo 


COBOLTST 
COBOLTST 


€10e C30 OIVIDED BY 010 MINUS C20) 4 GI (C30 4 D010) OR COBOLTST 


COBOLTST 
COBULTST 
_COBULTST 
COBULTST 
COBOLTST 


—COBULTST 


Data Decutme..ig. ine 


@ ] 
013610 IF FA341 IN TF1L2 Cleleoivsid £ FAZ341 IN WSTF12 €2929202) COBULTST 
@ 013620 MOVE 2 TO RSTN (2). CUBULTST e 
a 013630 O142, . .. odin. eDanentg dee eadagpataatetsomentte saan COBOL TST: 4 beaut sont ewe Oo bea Ooo th 
" 013640 MOVE 10 TO FA63 OF TF12 (1)» Fa63 OF TF12 (2)s COBULTST ’ 
T 013650 FAG3 OF TFL2 €3)> COBULTST 10 
1 013660 IF Fa8@3 Of. IF12.(1) MOVE 3 TO RSTIN. (3)... _COBOLIST. goes ee A! 3 
' 013670 IF FA884 OF TF12 (010) MCVE 4 TO RSTA (4), COBULTST ¢ 
@' 013680 IF FA885 CF TF12 (U10 + C10) MOVE 99 TO RSTN (5) ELSE COBULTST aL 
ee 013690... MOVES TQ. RSTIN. (52,000... SUNS colo VA Ek: sci) aoe a ee 6 
| 013700 IF FA341 OF TF42 (2929202) 3 FA341 UF TF12 Cleded01) COBULTST ? 
e' 013710 MOVE 15 TO RSTN (15), COBOLTST 1@ 
“ies 013720 | IF FAGM OF..TF 42.04). #. FAG4 IN WSTF A202) OBOL IST . 
: 013730 MOVE 16 TO RSTNW (16), COBULTST ie 
T 013740 IF FAL21 GF TF12 C192) # FAL21 IN WSTF12 (292) COBULTST "e 
ee: 0.13750 MOVE... 47..70. RSIN C172), 20000. 0... Seteiattinea tees fe COURIERS Sg ae aint eee, i 
a 013760 IF Fa231 CF FA27 OF TF12 (19292), 4 83688888 12°22-67 " 
e: 013770 MOVE 6 TO RSTN (6). COBULTST “@ 
een "013780 EXAMINE. GOA €C20) REPLACING ALL MAN BY "BM. 00 egkoersr |. DOR teem eRe ete ei 6 
013790 IF GOA (C20) = "BBBBBBBBuB" COBULTST i 
e- 013800 MOVE 7 TO RSTN (7). COBULTST Wiad 
a 013840 MOVE. GOA..¢C20)..TO.GUA (C20.=.C40) . COBOL TSF... Be ie ape oped Pes be 
7 013820 IF GOA (2) = GOA (63) COBULTST Mi 
r 013830 MOVE @ TU RSTN (ade COBOLTS1 1@ 
a 013840 MOVE 3 TO.AUN, . - CQOBOLTST. ©... ... pe cae at tana th ce Re ae Hate 2 
bs 013850 IF FA4S1 OF T*F1 Cis 1» le ts 1) > COBOLTST i 
@ « 013860 FA45S1 IN WSTF12 (2» 2% 2% 2% 2) COBULTST 1@ 
eas 013870 MOVE $ TU KSIN (923. of tats HEGRE TS Y css < a eae et A iptpetesn leg Sh eat an Sea ae Sa Se a 
. 013880 IF FA341 OF WSTF12 Ci» ly ts 1) « COBULTST aA 
r 013890 FA341 JN TF1i2 (2s 2» 2s 2) THEN COBULTST 5@ 
os 013900. MOVE 40 TO RSTN..C(10)3 Le fy vy edly Riek She ORR TS Po snicein he alte a Pea tet Stle litneeas whine = 2 
2s 013940 IF FA231 OF FA121 IN FAO4 OF FAa? OF TF12 C1> 4e 1) # COBULTST . 
@ * 013920 FA231 CF FAOS IN WSTF12 (2s 2% 2) THEN COBULTST 1@ 
Pes 013930. MOVE. 14 TO RSTN (112. Gi ha vaqenesehe ty aude Sole OUT GY ivan ahedaboce cent nc Lent ee tan aw Ala ar terre e 
av 013940 IF Fal2t Cr TPeFL*1 C1» 1) IS GREATER Than. COBULTST : 
eo” 0139509 FAI21 IN FA6G4 IN FA27 IN WSTF12 (2 2) THEN COBULTST "@ 
ae .. 013960. . MOVE 12 TOLRSTN. C1222... COBOLIST. ... . etl all adler toe a Gee chal ete et ee Glee tr RF ei ee 
a 013970 IF FAO4 OF TF12 (C10) EXCEEDS COBULTST 3 
e~ 013980 FA64 IN WSTF12 (C10) THEN COBULTST 31@ 
oe 013990. MOVE 13 TO RSTN 61323... Sie ieusiinaueenteiainet Lost OLE TST Pan ee A nr ee a a ae 
a 014000 IF Fa27 OF TF12 EQUALS FA27 OF WSTF12 THEN. COBULTST 2 
r 014010 MOVE 99 TO RSTN (14) ELSE MOVE 14 TO RSTN (14), COBOLTST hed 
ms 914020. MOVE 17 Ta CVN, Re 8),= YG ay 620s enone ne en See : 
Ho 014030 PERFORM 0143 VARYING C20 FROM 1 BY 1 UNTIL C20 > CVN, CUBULTST “0 
T 014040 MOVE 3 T@ CVAS COBULTST 1@ 
“oO  OI4O50. 0. PERFORM VERIFY; 2. wie seit Cited adap tlre ar tna ce 5. et I EGS ae ot a ode GA weed 42 
i 014060 GO To O14E, COBOLTST 4 
@ « 014070 0143, COBOLTST «@ 
ML OL40R80... | MOVE C20 To. ANSN. (C20)... 00 SAE! oft 8 1 BC Ss GN OO Oe ba 
“| 0140900 O14E. ExIT. COBULTST a 
@” 014100 COBULTST @ 
By ant OVE TIO. Se Fit es es a _ een eae a eon et OM BUS Tes tees St is 8 
fs! 014120 COBOLTST 49 
e 0141430 COBOLTST A@ 
a Eoennee OUGT AD Ol SSE CTI ON ge Saar cet ha ee BN COBOL PSY oe hin ne ot sq 
p2 014150 0151, COBOLTST 5 
@» 014160 MOVE "POLS" TO SECT*NUS COBOLTST @ 
Pa ... OL4L70.. MOVE "CLASS COMPARISON 724,25" To SECT = ALLELE. COBOL TST 54 
55 014180 OPEN INPUT COIN» COBOLTST 55 
|: 014190 READ COIN AT END GO TO 0159, COBGLTST Jj ® 
ote 014200... MOVE ALL "a" TO A?» AN?» AGP» G3S1 OF CRP*DS5s = CB OLTST y 
@ 


e 
014210 MOVE ALL $ TU D73 GUAN PEH3 ANS G2T2 UF CRP#DS5 COBULTST 
& 014220 1F DANI IS NUMERJC MOVE 1 TO RSTN (1)3 CUBULTST 
oe . 014230 IF. DAN2 ALPHABETIC MUVE.2.70 RSTA. (223 COBOL TST nc aan 
i. 014240 IF DAN1 IS NUT NUMERIC MUVE 99 TO RSTN (3) COBULTST 
i 014250 ELSE MOVE 3 10 RSTN (3), COBOLTST 
“ee 014260 IF DAN2 NGT ALPHABETIC. MOVE 99 TG RSTN (4). - COBULTST. 
014270 ELSE MOVE 4 TO RSTN (4)3 COBLLTST 
 ] : 014280 IF DAN1 IS ALPHABETIC MOVE 99 TU RSTN (5) COBOLTST 
Pi sauaeata ADP OOG: wa ; - ELSE MOVE 5. TO RSTN. 05 )%.... a COBULTST 
| 014300 IF DAN2 NUMERIC MOVE 99 TO RSTN (6) COBULTST 
| 014310 ELSE MOVE 6 TO RSTN (6), COBULTST 
014320. READ CDIN AT END GO TO 0159,. COBCLIST. 
014330 IF FiD10A JS NUMERIC MOVE 99 TQ RSTN 67) 0670668 
eo 014340 ELSE MOVE 7 TO KSTN (793 COBLLTST 
Monee 014350 IF Fi1D3@s. NUMERIC.MOVE..B.1O kSTW (8)... 067046768 
a 014360 IF F10116A NUMERIC MOVE 9 TO RSTN (993 0670668 
@« 014370 IF F10115A NOT NUMERIC THEN MOVE 99 TO RSTN (10) 06"06"68 
Pee eee OF E39 BO. ELSE. MOVE$0. TORSTEN. CIO}... Bes rs Shee  COBELTST.- 
" 014390 IF F10105A ALPHABETIC MOVE 99 TO RSTA (11) 06"06"68 
eo" 014400 ELSE MOVE 11 TO RSTN (1123 COBULTST 
Naneiitine. OL9G 10: IF FiDL10A IS. NOT NUMERIC MOVE 99 TO RSTN. C1e). |. . 06206268 
” 014420 ELSE MCVE 12 TO RSTN (12). COBOLTST 
| 014430 READ COIN AT END GO 10 O18 COBULTST 
cheese ae OL AG SA... MOVE 5555 TO ANA. d COBOLTST 
i 014440 0159, COBULTST 
@« 014450 IF 0A14 IS ALPHABETIC THEN MOVE 13 TO edt toa COBULTST 
eee wipe 014460 IF DA7 NUMERIC MOVE 99.TU RSTN (44) COBULTST 
_ 014470 ELSE MOVE 14 TO RSTN (14). COBULTST 
, 014480 IF 0A8 1S NOT NUMERIC THEN MOVE 45 TO RSTN (45)3 COBULTST 
ev Sings . 044490 IF CIA 1S ALPHABETIC MOVE 16. TQ RSTN C1635. 2 ee ee CQGBOLTST 
" 014500 IF CIA IS NOT NUMERIC MOVE 17 TO RSTN (17). COBOLTST 
) 014510 IF A7 IS ALPHABETIC THEN MOVE 18 TO RSTN C1893 COBULTST 
014520 IF AN? ALPHABETIC. THEN MUVE..19.TG RSIN (4993. COBOLTST. 
014530 IF AGP IS NOT ALPHABETIC THEN MOVE 99 TO RSTN (20) COBCLTST 
014540 ELSE MOVE 20 TO RSTN (20). COBOLTST 
ae 014550 IF AN4 NUMERIC THEN MOVE 21 TO_RSIN (21). ._.... .COBOLTST ... 
014560 IF GGA €1) NUMERIC THEN mOVE 22 1G KSIN (22). COBULTST 
014570 IF GOA (2) ALPHABETIC THEN MOVE $9 TO RSTN (23) COBOLTST 
ie _ 914580 ELSE MOVE 24. TO. RSTN (2322. Ds te dulesh, boas _ COBOLTSI.... 
014590 IF PEH3A IS NUMERIC THEN MOVE 99 TO RSTN (24). 06"06"68 
014600 ELSE move 24 To RSTN (24)3 COBULTST 
9149610 IF PEH3A ALPHABETIC THEN MOVE 99 TO RSTN (25200000 0 0. O6h06f68 
014620 ELSE wcVE 25 To RSTN (25). COBOLTST 
014630 IF ANB NUMERIC THEN MOVE 26 [0 RSIN (2693 COBULTST 
914640 IF G31 QF CRP=D55 NUMERIC THEN mOVE 9% To RSTN C27) 
014650 ELSE MOVE 27 TO RSTN (a7) COBOLTST 
014660 IF G31 @F CRP*DS5 ALPHABETIC THEN MOVE 99 TQ RSTN (28) COBOLTST 
; Meeenes 019670... . . ELSE MOVE 28 TO RSTN (28), 000 COBOL TST 
014680 MOVE 28 TO CVN}3 COWULTST 
014690 PERFORM 0153 VARYING C20 FROM 1 BY 1 UNTIL C20 > CYN3 COBULTST 
Fee eee © Hy 00 Serene 9 b <ame ae SCL 6 | 2 eee ee ce mere ee COBOL TST 
014710 PERFORM VERIFY3 COBULTST 
014720 GO TO O15E, COBOLTST 
ee OL47 90 91530 get Mast ted rat ie oie te es _.__COBOLTST oo 
014740 MOVE C20 TQ ANSN (C20). COBULTST 
014750 O15E, COBOLTST 
ig ee ee OER TBO. oe SEM Tg ee SoS ee eke sa Pig Hn ps Stag tee se a I Ba ee he GUO UL OMe ge hasten at ie 
P 014770 | COBOLTST 
014780 COBULTST 
Bae OT OG tit ee, ile en eRe a ee Pa ta ce sia ste ela sata etna ME oe tt ai tO OM Vela 09 


COBOLTST 


Sine 


ta Bocumers 


Da 


@ 
014800 COBULTST 
@ 014810 P016 SECTION, CUMULTST 
iyi ent enc Oe Os QL OL: 6.x: fake. oh ninsd eee RAk) Rea. ees ofl ee hho eamesete ue tbe en UO Te ce ie. | gS a igeeneti attest tent So 
: 014830 MOVE "POL6" TO SECT@NUS COBULTST 
eo 014840 MOVE "AMOUNT COMPARISUN 744626" T0 SECT*TITLE. COBOLTST 
oe 014850. READ COIN. AT. END DISPLAY "SECTION 16 CARD ERRORM 0 COBOL TST cee 
014860 GO TO 0169, COBOLTST 
ee. 014870 MOVE 1 TO C103 COBOLTST 
Meese is sed PAB BOS! «fac MOVE LOO JOC OBA 22 oes att di duet at Se Apcarhth <p TeS ecu s Shoshana il a OE NS Top il acca at Ral pa ent 
; 014890 MOVE "25,25 TO C523 COBOLTST 
eo: 014900 IF C10 IS POSITIVE MOVE ClO TO RSTN (103 COBULTST 
Me OPMOEO. OTF C4025. 2ERO.MOVE.99 TO RSIN. ¢2) ta ftp DD Raat saints eam eee eee BS Louie hiee es Seco a oe Ee ee, 
014920 ELSE MOVE 2 TO RSTN (2)3 COBULTST 
T 014930 IF C10 IS NEGATIVE TREN MUVE 99 TO RSTN oe COBULTST 
Tata oh ea 014940 .. ELSE MOVE.32..TO. RSTN (3)... sigan deeN casa hercth ina pana Maden atelee eC PRLS Wy wel clo. nas ett Guetta Ries Sah le eC eS ea aah ics eee ac 
i 014950 IF c52 NEGATIVE MOVE 4 TO RSTN (4)3 . COBOLTST 
, 014960 IF ¢9$2 ZERO THEN MOVE 99 TO RSTN (5) COBULTST 
‘ee ee OLN O70... 2. ELSE MOVE 5 TO RSTN. (35)2.. seen tat aut lace tt Sahl Mal he PEL ER ca, oi pte At cal edterece esta oily oa, 
iy 014980 IF C52 POSITIVE MOVE 99 TO RSTN (6) COBULTST 
@ 014090 ELSE MOVE 6 TO RSTN (0%). COBOLTST 
We Dinewas aa OPIO00 IF C20 1S NOT. NEGATIVE MOVE 7. TO RSTN. OPQ ec eee COBOLTST 2. we, Bea Recel iiaereeet eet Pie GA Pract tetas et Eat ast. 
oy 015010 IF C52 IS NOT POSITIVE THEN MOVE 8 TU RSTN (8) COBOLTST 
r ae 019020 ELSE MOVE 99 TO RSTN (8), COBGLTST 
BM ene ee 919030 | MOVE 12345 TO c2.OF CRP©CMP=SC. 5 Re ai athewecet chin ats decstanises MCB B OUTST: crane coe sie om ntnendienleantrciten ts 
- 015040 MOVE ALL S$ TO GON. COBLLTST 
@ * 015050 IF CC2 OF C2 OF CRP=CMP=SC IS POSITIVE MOVE $ Ta RSTN (9), COBOLTST 
nk reer . 015060 IF Gn (5) 1S NOT POSILIVE MOVE .gy TO .NSTN C10)... 2... COBOLTST ... O de Baht ee oe Te ate 
a 0135070 ELSE MOVE 10 TO RSTN (10). COBOLTST 
@ « 015080 IF F1D116 1S ZERO THEN MUVE 11 TO RSTN (1193 COBOLTST 
ten 6s 949090 IF FiD115 IS NOT ZERO THEN MOVE $9 TO RSTN €212)0 0 00 MODUL TST cc ce ee ee 
= 015100 ELSE MOVE 12 TO RSTW C12)6 COBOLTST 
@* 015110 IF F1D10 IS NEGATIVE THEN MOVE 99 TO RSTN (13) : COBULTST 
i a © Leos 0 ELSE MCVE 13 TOO RSTIN C1328 00. peda gdtvesusintne Auimin GVO DEAT Sati, 58s petty te tate oar 
a 045130 IF F1020 IS POSITIVE THEN MOVE 99 TO NSTN “(14@) cOBOLTST 
@» 015140 ELSE MOVE 14 To RSTN (14), aed 
AM OL SISO OLOE<: . sediletsasple. Buty. pees Rue,” Ba Steaks whl! SE. teste, = way baa euetntiens Mcrnacmiee ee OE St. hl sus eterna Bere oe See ee os 
a 015160 IF C10 + 1 ** 100 * 2 / 2 [S POSITIVE TREN MOVE 15 TQ COBULTST 
@. 015170 RSTN ¢15)3 COBULTST 
PiiectncesaGO lee RO... oo, LP Sebo hols we CSO 2S). he 0 Pie ZERO TACK MOVE fi Tico COM UE TO a csins th wees cee eae 
‘ 015190 RSTN (16)3 COBOLTST 
e* 015200 IF c52 = C10 * C20 ** 3 WEGATIVE THEA MOVE 17 TO COBOLTST 
Oo OLS210 2 RSTN €17)6.00 00. reste 8 ya ey ae yan ne QD CE ty Da ad Se i este cola ee ep eae 
Jui 019220 IF c20 * C52 = C10 * 2 + C20 / 5 IS PUSITIVE COBOLTST 
eo: 015230 THEN MOVE 99 TO RSTN (18) COBOLTST 
8 mee, 013240. -ELSh. MOVE. 18 TO RSTN Clo)g. L. eat ate EW Oe cla ce ania ke he 
ks 015250 IF C52 TIMES C52 PLUS C20 EXPONENTIATED BY § IS NEGATIVE COBULTST 
@ | 015260 THEN MOVE 99 TO RSTN (19) COBULTST 
ig Perrone © 00 A a ELSE MOVE 19 TO RSTN C19)3. ithe la 8 co cnect HOM Sc corte ce ponte esta 
015280 IF C52 TIMES 3 DIVIDED BY C20 MINUS 35,2 18 ZERO COBULTST 
@" 015290 THEN MOVE 99 TO RSTN (620) COBULTST 
atteieete ts OF D300 rcs athena Sb MOVE SOTO UNS TN of 9094 ee ee COROT ST ee een TOE faeries Wesel ren rae Nene tar en Seer 
019310 IF SIN (C10) *= C10 MINUS COS (C10) # 0 COBOLTST 
@ 015320 IF SIN (CLO) = C10 MINUS COS (C10) IS NOT EQUAL TO O COBULTST 
ig er eae OS 3 3 Oe ues, ce MENS MOVE Od: TO CRS UN CO yg a COBOL IST 
019340 IF SQRT (C20 ** C10) IS POSITIVE THEN MOVE 22 TO COBOLTST 
e 015350 RSTN (22). COBULTST 
042.360 000 PLN C10 PLUS 2) Is NEGATIVE THEN MOVE 99 TO RSTN (23) COBULTST OOO 
: 015370 ELSE MOVE 23 TO RSTN (23), COBOLTST 
6 015380. MOVE 23 TO CVN3 COBOLTST 


-._013390.... PERFORM @1463 VARYING C20 FROM 1 BY. -1UNTIL c20 > cvns scgwottsr ee: pateressee ds 


UCL INENES fine. 


feliz Ou 


e 
° 015400 MOVE 1 TO AUN, | 
eat 0169. CLOSE CDIN WITH RELEASE, ae 
z 019410 CLOSE. TP*FLe1 PURG SE. IP*FL- : 
e ; 015420 Searank on CLOSE. TPO hla PURGE gcc: fei: baud aoe i POP SATO 8 3,00 
015430 GO TO O16€, COBLLTST 
m O1b440 0163, COBULTST 
; 015450 MOVE C20 To A . . LOBLLTST. 
| 015460 O16E. Cope ne COBULTST 
ae 015470 EXIT. | COBULTST 
015480 COBOULTST 
eo 015490 COBULTST 
019500 | | COBOLTST 
015510 P018 SECTION. ~COBOLTST 
\ 015520 0181. COBOLTST 
Ne 015530. MOVE "POLa" TO secTends sein 
e- 015550 MOVE 1 TO Hop fg TERE eee cOBOLTST 
tts Q1a540 © GO. TO Rigi, See 
M 015570 01899, NOT eae 8 SEOBDET S760 2ciy od a cea le 
eo" 019580 P11. eae anes 
J - 019590 ALTER 0162 TU PRO TO P18 COBULTST 
015610 GO TO P183, COBULTST 
ee (015620 S181 SECTION... COBOLTST 
i 015630 Ly MOVE 2 TO RSTN (2), RED et 
a 019640 IF c10 # 1 GO TO P164. COBOLTST 
= 013650 ADD 1 TO C103 el te 
«= 015660 potas COBULTST 
e- 015670 P183, ache eg oe 
Hou. 015680 MOVE 3 To RSTN (323 Soe en al 
e: 015690 GO To Stat. sect ae. 
‘ 015700 P184, EXIT, COMOLTST 
(oe 019710 S182 SECTION: . COBOLTST 
: 015720 Pi85. _COBULTST 
ae 012730 MOVE 4 TO RSTN (4), COBOLTST 
i Q19740. P1621, tn ees 
: ro756 OUE eS e e ; ey _COBULTST.. .. 
eo 015760 GO To P1a9, = meyegle 
woe (012770 0182,.G0 TO... COBULTST 
e- 015780 $183 SECTION, ~COBOLTST. . 
015790 P189. COBOLTST 
: 012800 MOVE 6 TO RSTN (623 COBOLTST 
: 013810 aa Pan Brae Gr ciao COBULTST.. 
\ 015620 F182, EXIT. COBOLTST | 
A oS iis OL SBAD S180 “SECT TONG inns cnceut dagen: acter geal 
el: 015840 SL184, Ce ee ee eee mere eee peewee oc || 1 Bh Ae en 
a 015850 MOVE 7 TO RSTN (7)3 COBOLTST 
ie 0159860 GO TR SMI, hel a 
e| 015870 GDLis MOVE C20 TO RSTN (C20) isa eed este ieee ROOD O LYST fare 
Ms 019880 ADD 1 10 C20 ADD 1 TO ClU. cOBULTST 
Mo ecnatte cD PSAOO. yo. GD TOUGOOE ccemce -\t.cranite ra chilled 
e is 015900 MOVE 888 TO RSTN (8). see SER ela Se ge aap a 0 ole ea aes 
c 015910 SMLI, COBULTST 
| eee 015920... MOVE BIO. RSTN C82. Caan eae 
e| 012930 GO TO SML1S. iy bo Ss ia aoe OB OL aN ge 
i 015940 $185 SECTION, COBOLTST 
is dof ODO SO SLED ok kG ag , COBOLTST 
e|: 015960 GO TO OLBVE. Sebel aaa in ee ate al CBOE UST Scat 
015970 SMLIS, COBLLTST 
COBULTST 


a5 O80. MOVE 8: TO RSIN (9), 


A epee ene Seu erie one eee me eee eoteerte! 01 00 - [¢Y Se 2-1) Se eeneeaaee See eee 


Mata Duecuroe tig. fie. 


@ 
015990 MOVE 1 TO C10, COBULTST 
ra) 016000 MOVE 10 TO C20, COBULTST 
oe 016010 GDDL. GO 10 GOLis GDL2e GDLje. GOL3s.. l sesiche ten SOLE EI TS Taga es 
rf 016020 DEPENOING CN C10, COBULTST 
eo 016030 MOVE C20 TO RSTN (C20), COBOLTST 
, 016040 MOVE 15.70 RSTN.C15) GO TO P1H99.. .COBULTST. 
. 010050 GDL2, COBULTST 
@ : 016060 MOVE C20 To KSTN (¢20)3 COBULTST 
eee wee oe 919070... (ADDY 70.040 .ADD.4.70.C20..... reer rermrrs °< 0 - (CL On de Cee nee 
‘| 016080 GO TO GOOL. COBOLTST 
eo: 016090 S186 SECTION, COBOLTST 
OF crevvmeeO16100 GOL3e. MOVE C20 TO RSTN €C20)0 cece covet oe eee eee eM OBOE TST 
os 016110 ADD 1 70 C10 ADO 1 TO Cev, COBOLTST 
ee. 016120 GO TO GODOL, COBULTST 
BS ctepctied alent OL DO ORO SOP CERIN che ads orci Rial sarees alts. naive lmudian citienpidlig abla WebeetAleet Rath attle, Ghneeest UID TST te cck.ner Ota acetiha path jaded, 
he 016140 GDL3S, COBOLTST 
r 016150 MOVE C20 TO RSTN (C20)3 COBOLTST . 
ot eae OLOLE0 ADD: 227030405 ADD A. TOL G20e. eek, ceded Giedieiatera atric hese i RDRUEIS Tocco. 6. cs 
; 016170 GO To GOOL. COBULTST 
. 016180 P1899. MOVE 15 TO CVN, COBULTST 
MM core vi . . 019190 PERFORM P18F VARYING ceQ. FROM.1.BY..2. UNTIY. C202 CV Me. woe COBOLTSTow uu... 
i 016200 MOVE 1 TO AUNS COBOLTST 
r 016210 GO TO 018VE, COBOLTST 
Tesh in, 016220 Pilar... . A I” aa aye tC OBUL TST htc etwe tomes? 
. 016230 MOVE C20 TO ANSN (C20). CUBULTST 
e* 016240 018VE, PERFORM VERIFY. COBULTST 
a agtiadsngy 016250 as de ; / . COBULTST..-.. . 
‘ 016260 COBULTST 
Moca cite OL O2BOs%......; -COBOLTST | 
es 016290 PO21 SECTION, COBULTST 
@* 016300 L021, COBOLTST 
8 ee OL0320 0... MOVE "POZE" TO SECTONOS. .. COBULTST. a 
a 016320 MOVE "OPTIONAL FILE AND UF MESSAGE” TO SECT@TITLEe COBOLTST 
@” 016330 DISPLAY "KEY IN OF OPTFILI" 3 COBULTST 
Bi 2.3 tlt ctl OO AO GPEN INPUT ORT O9) cc). ccseic.. Gono, cee Sear eee oo teas keels .. COBOL TST 
uw 016350 DISPLAY "KEY IN OF "5 COBOLTST 
@» 016360 OPEN INPUT OPT1. cOBULTST 
Be aces OLS 370. READ OPTI AT.ENO. DISPLAY. "1S10PFL. READ BRANCH OK"3 000 COBOL TST cece ee ee 
es 016380 ELSE DISPLAY “OPTIONAL FILE READ BRANCH ERROR", COBOLTST 
eo. 019390 READ OPT2 AT END MOVE 3 TU CVNS MOVE 1 To AUNS COBULTST 
Been we LO 16400 PERFORM VERIFYs ELSE DISPLAY "2ND OPFL READ BRANCH ERROR", COBULTST. o.oo 
“ 016410 COBULTST 
@ 2 016420 COBULTST 
Mime ner QEOMIO., slaae z aa eCOBOLTS Tie casio adele = 
ft 016440 COBOLTST 
@ « 016450 PO023 SECTION. COBOLTST 
a OP OA6O 23L1, MOVE "PO23" To SECTeNoOs ree ee aD SAL N es SRE MEE oc! 1 By 2 os ee ee 
t* 016470 MOVE "READ@WRITE STATEMENT UNBLOCKED FILE" 10 SECT*TITLE,  COBOLTST 
, aw 016480 OPEN INPUT CDINe COBULTST 
Meo 86490 MOVE 1 TO C10 Ca0e. MOVE OF TO Dede C22, 000 COBOL TST S 
9 016500 READ COIN AT END GO TO CLCY, MOVE CIAN-TG WSVAL, ' COBOLTST 
@* - 016510 OPEN OUTPUT UNBLKT, COBOLTST 
f| 016520 PERFARM 23WT 1029 TIMES COBOLTST 
i 016530 CLOSE UNBLKT« COBOLTST 
@ * 016540 UPEN INPUT UNBLKT. COBOLTST 
Pl 10550. PERFORM. 6 23RAC THRU 2318 UNTIL VAN = 1025, ferme ra 6-H a 2 ia Se en eee 
019552 CLOSE UNBLKT WITH PURGE, 10"5"70 
@ 016560 IF 020 » G MOVE 1 TO PHSNO _ DISPLAY PHASE» PHSNOs WRESULT COBOLTST 
010570. ELSE IF cpn es 50S ——s—CSsSCS Fen ee IO SU MR MECTT 7 4-61 Ses ts eee Ene eet RR. 
e 


wel Lye 


GEA ILS 


e 
E 


016580 
016590 


. 010600 


016610 


016620 


016630 
016632 
019640 


019650 


016660 
016670 
016672 
016680 
016690 
016700 
016710 
019720 


016730 


016740 
016750 


016760 


016770 
016780 


..O10790 | 


010800 
019810 
014820 
016825 
016830 


.010840 


0160850 
016860 
016870 
016880 
016890 
0.19900 
019910 
016920 
016930 
014940 
016950 
016960 
016970 
016980 


019990 


017000 
017010 


017020. 


017030 
017040 


017059. 


017060 
017070 


o17oao | 


017090 
017100 


OAFLAL0 
017120 


017130 


917140 


GO TO 23L2, UPEN OUTPUT UNBLKT,. MOVE ZERO TO C72, 
READ CDIN AT END GO TO CLCI, MOVE CIAN TO WSVA1 sane 
PERFORM.23W7T 1025 TIMES. .W... . 
CLOSE UNBLKT WITH NU REWINDS MUVE 0 TU D20. 
OPEN INPUT UNBLKT REVERSED, MUVE 1026 TO VBNe 
PERF @RM 23RACR THRU 23L9 UNTIL VHN = 4. 
IF 020 = C MOVE 2 TG PHONO 
DISPLAY PKASE»s PHSNU»s WRESULT ELSE IF C20 = 50 GQ 10 23L2. 
23L2. READ UNBLKT. AT. END MOVE.50 TO CVN mMUVE 1 TO AUN. 
PERF@RM VERIFY READ CDIN AT END GO TO CLCI.e 
DISPLAY ™ CARD INPUT ERROR™ ACCEPT AN 
READ COIN aT END GO TO CLC. ... 
23WT. MOVE CIAN TO RWA1 ADO C10 TO ¢72 
MOVE C72 TO ABN1 WRITE RWAL. 
23RAC, .ADD Cic.TO VBN READ. UNBLKT AT END. 
DISPLAY "ERROR IN NU. OF RECCROS WRITTEN", 
IF RWA1 # WSVAY MOVE 1 TU D020» RSTN (C203 ADD C10 TO C203 
IF. C20.8 SC.DISPLAY "NO. UF WRONG RECORDS EXCEEDS. 50" mOVE. 
ABN1i TO RECNO? WRITE A=R FROM RWHO13 GO TO 2318. 
23LB8e EXIT. 
23RACR. SUBTRACT ClO FROM V8N READ LUNBLAT AT END 
DISPLAY "MISTAKE IN NO, UF RECORDS WRITTEN"S 
ELSE IF RWAL # WSVAL MOVE 4 TO D2Q0% RSTN (C20)3 
ADD ci0 TO.c203 IF c20 = 50 OISPLAY "ERROR. NO, EXCEEDS SO} 
MOVE ABN1 TO RECNO wRITt AwR FROM RWHD1, 
23L9. EXIT, 


CLCIe CLOSE COIN wITH RELEASE, 
CLOSE UNBLKT WITH PURGE, 

23EX, EXIT, 

PO28 SECTION, 


0281, MOVE "PCz28" TO SECcT=NO, 
MOVE "GENERAL RULES FOR ARITHMETIC STATEMENTS. 7e9aleai" 
TO SeEcT*TITLe. 
MOVE 1 TQ C1Vs DiO0s CC2 uF CRR#CwP=0Ss 
MOVE 10 VO C20s..D202 GI (2)2 RSTIN (228 
MOVE 10,10 TO C42 Gre (3)3 
ADD C10 TQ RSTN (1) 
ADD O10 ANSN (1). 
SUBTRACT C10 FROM RSTN (2)3. 
MOVE 1 TO ANSN (1) 
MOVE 9 TQ ANON C2), 
ADD 19 26 3% 4» & GIVING KSTN (3) 
ADD 5s D20 TU ANSN (3). 


MULTIPLY 999 BY 2 GIVING 030 

MOVE C30 Tf RSTN (4) 
MOVE. D30 Toa RSTN (5) 22. Ww eee es 
MOVE 1998 TO ANSN (4) 

MOVE 998 To ANSN (5) 


RSTN (6)e 
MULTIPLY 999 BY 2 GIVING U30 ON SIZE ERRGR ADD 1» 2s D020 


“MOVE 13 TO ANSN (60s ANSN (Te, 
ADM 10 TG c20, 
_..OIVIDE 3 INTO CeO GIVING C52. 


sae tne te hn penn mee nn oe 


MULTIPLY 999 BY. 2. GIVING C30 0 (0 ee ne 
MULTIPLY 999 ByY.2 GIVING C309 ON SIZE ERROR ADD ts 29 D200. 


TO_RSTIN C7). pict othe atic IS ah Ree eh ecto 


COBULTST 
COBULTST 


COBOLTST. 


COBULTST 
COBOLTST 


. COBULTST. 


COBOLTST 
COBOLTST 
COBULTST 


COBOLTST 


COBULTST 


. COBULTST 


COBULTST 
COBULTST 
COBULTS! 
COBULTST 
COBULTST 


COBULTST 


COBULTST 
CUBULTST 


. COBULTST 


COBULTST 
COBQLTST 
COBOL TST 
COBULTST 
COBULTST 


. COBULTST 


107%5"70 
COBULTST 


COBULTST 


COBULTST 
COSULTST 


COBULTST.. 


COBOLTST 
cCOBULTST 


COBULTST 


COBULTST 
COBULTST 


. COBULTST 


COBOLTST 
COBULTST 


COBOLTST 
COBULTST 


. COBOLTST 


COBOLTST 
COBOLTST 


COBULTST 


COBOLTST 
COBULTST 


.COBOLTST.. 


COBOLTST 
COBULTST 


COBULTST 
COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 


~COBQLTST.... 


COBOLTST 0 


—-COBULTST. 


CUBULTST 
CUBULTST ] 
[O01 16) On Gt Cane a ee ee 
COBULTST 
COBULTST 1@ 
COBULTST  ——sssss oo 3 
COBULTST , 
COBULTST 1@ 
COBULTST. 0 is 
COBULTST ? 
COBULTST 1@ 
COMO TS Te 8 no a ec rte 8 
COBULTST 
COBOLTSI l@ 
OOM TS is ote. nin, Go sein diners Meath tren oo ete eres esas 
COBULTST 
COBOLTST 1@ 
POO BUETST 262) howe ee aot eS ee HS 
COBOLTST by 
COBULTST 1@ 
MPEP OL TST ceactnl. 4.8008. 0 pdleceune ak eer Bate aoe Sp ee ee er oar 
COBOLTST 


017150 
017160 
017170 
017180 
01/190 
coca. 0417200 | 
017210 
"| 017220 


MOVE C52 Tc RSTN (8) 
MOVE 6.66 TO ANSN (8)o 

-OTVIDE 3 INTO C20 GIVING C52 ROUNDED 0 ee eee cence meta 
MOVE C52 To RSTN (9) 

MOVE 6,67 TO ANSN (9) 

COMPUTE. RSTN (10) = CC2 UF CRP=CMP"0S / 80 WL. 
MOVE 0,012 TU ANSN (10). 

| COMPUTE RSTN €11) RUUNDEL = CC2 UF CRP=CMP=DS / 803 

Bl nnn wee AMA 7230.. © MOVE 0,043.10 ANSN. CyLI4.. cya ee, See et Sen te ar eee 
017240 ADD 23456,99999 To ¢50 

‘| 017250 MOVE C50 TO RSTN (12) 

Mee wer vevnse sven, OL1F 260. -MOVE..23456 70 ANSN ¢€12)2. 0 Pi IS oo rele ts Puedes sda aes 
017270 ADD 23456099999 » 0 GIVING PEFPS. ROUNUEDS 

017280 MOVE PEFPS TO RSTA (1)3 

Treinen O17290..... . MOVED" 429057 ..00) oc PTO ANS A O19 oie cescaltne ae ices Bn -qanaemetie wilwwtan 
M 017300 MULTIPLY C42 BY =2 GIVING PEF?S 

017310 MOVE PEF*S TO RSTA (2) 

eres eee AA T320. MOV Bae S205 90 ce. 3 ei, PUAN Rk Bg oo treet pee ee ala gs 
017330 MOVE 12 TO CVN3 

, 017340 MOVE 2 TO CVA} 

W ieeieties anes OLTSSO.. oOMOVE. 3): AUNZ... 
. 017360 PERFORM VERIFY, 


i 017370 


017380 
017390 
017400 
O1£410 
017420 
017430 


COBOLTST 


COBOL EST 


COBULTST 
COBULTST 


. COBULTS TE. 0. 


COBULTST 
COBULTST 


Bata BecuMerics: ric 


ae mex bs re re & 7 * 
OR - eo oat a 7 7 
eS ! , 


oo 
ix 


COBOL TST ce cee : 
COBLLTST of 
CUBOLTST 1@ 
BTS hye tess ater ae so ate pare ee eng eG a a ee ee el 
COBULTST a 
COBULTST b1@® 
COBULTSI. |. deplley eS adalat ode cand Se Nae oI ten ae nc see) Re Ee el 
COBULTST 
CUBULTST 
COB MWIET ES Tito 4 Alga bes wteke aoa eee a er ee 
COBOLTST be 
COBULTST 1@ 
Bch 01:11 00) | A ne co mn: A ae eee ee 2 eer ene oe eS se 
COBULTST . 
COBULTST “@ 
__COBOLTST 47 
COBULTST i 
COBULTST “@ 
COBOLTST is 
COBOLTST et 
COBULTST . a7] @ 
_COBULTST == ¢: 
COBOLTST as 
7 COBOLTST 1@ 
eg eto ce eRe tee a a ee Dee Pe 8 ee es SI 
COBULTST 6 
COSULTST 1@ 
a OHS. 6 
017720 80D C52 TO D7P3L3 COBOLTST ae . iS 
017730 MOVE D7P3L TO RSTN (8)3 COBULTST ae | 1@ 
SUNT Py oa a ae ea Se ee eee a POMS TA a crac yy 


ow... O17 4a 
te 017450 P029 SECTION, 
“| 017460 0291. MOVE “POZy" Ty SECT=NUs 
Y eidsrevehu tin OMe TO. . . MOVE "ADU STATEMENT. .7,9,.2. TG. SECT*TQILE Sg 0 ce ceed 
= 017480 MOVE ZERO TO C304 OC4D; 
017490 MOVE 14 TO C10» D103 
Tee one AATSOO © MOVE ALL. LO. TO020 0: CRPSCMPEDS Sc cee neseveeninee sve sonata wv vet 
017510 MOVE 20 TO D203 RX1 OF MISN3 
e~ 017520 MOVE 12.34 TU C423 
MF ceaat a. ge Ob eeO.. ac. MOVE. 9SS9O 9999 (TO. OP OU Fy: tlle oa eas settle herded apie tele ace! 
7 017540 MOVE "183.45 TO C52. 
@ « 017550 ADD 100 To C30; 
Ot ican OL OOO! ADD cOSOP RST NOT a tear ees, wee! Lelencei arate taluk, uislviieleuaSebsowlen coceeiates 
ay 017570 ADD 1005 ANSN (1). 
@« 017580 ADD 1005 D20» C42 TO RSTN (2)3 
82 even OAPS9IO. ADD 100% C20% C20» C42s ANSN C2). 00 
“ 017600 ADD C20» 020» C4» C52» RSTN (3), 
6. 017640 ADD “81.11 TU ANSN (3), 
Pie acta srye a ONT O2O a2. a ADD OS TG ne SR RK get tate ice eat OU ae a ot get ne Sas 
he 01/630 ADD 123» O03P3L3 
A? 017640 MOVE D3P3R TO RSTN (4)3 
hs 017650. MOVE D3P3L TO RSTN (5)3_ 
ae 017660 ADD C42 TO O7P3R3 
oe; 017670 ADD C42 TO O7P3L3 
ae __..._ 0417680. MOVE D7P3R TO RSTN (6)3 
017690 MOVE D7P3L TO RSTN (7)3 
017700 
Eneeetereee 44: 0s earners 


date Sole 


z = Ee a 2 


017750 
01/760 


. 0177.70 


017780 
017790 
017800 
017810 
017820 


01830 


017840 
017850 
017860 
017870 
017880 
01/890 
017900 
017910 
017920 
017930 
017940 


01/7950 


017960 
017970 


017980 


017990 
018000 


. 018010 


018020 
018030 
018040 
018050 
018060 


018070. 


018080 
018090 
018100 
018110 
018120 
018130 
018140 
018150 
018160 
018170 
018180 


018190 


018200 
018210 


018230 
018240 


018250. 


018260 
018270 
018300 


018320 
018330 


. 018220.. 


018280... 
018290 


ACe 


OAB310 


MOVE ALL 1 TO OC4O. CUBULTST 
ADD D"™43 (1+ ts» 1» 1)* C1 OF CRP@CMP=USs AX1 OF MISNs COBULTST 
RSTN. (9)4_..... be As Tate. ton 8 a ihn ae Pin aye . COBULTST. 
MOVE 232 TO ANSN «9), COBULTST 
MOVE ZEROS TU PEZ13 030 3 COBULTST 
ADD OeO0001s C104. GIVING FEZIs. . COBULTST 
MOVE PE2Z1 TO RSTA (1)3 COBCLTST 
MOVE "1002000,00" TU ANSA (1). COBULTST 
MOVE ZERUS Tu. PECR}. COBULIST 
ADD D20% C52 GIVING PECRS COBOLTST 
MOVE PECR TO RSTA (2)3 COBOLTST 
MOVE." | $103.45CR”" TO ANSA (2). COBOLTST. 
ADD 5 TO C308 CUBULTST 
MOVE C30 TO RSTN (10)3 COBULTST 
MOVE..105 T.¢ ANSN (10), COBQLTST 
ADD S» C205 C10» C303 COBULTST 
MOVE C30 Tc RSTN (1193 COBOLTST 
MOVE121 .T0..ANSN. C11)4. ae ee 
ADD 5% C20» C10» C30 GIVING RSTN (12). CUBULTST 
MOVE 137 TC ANSN C12)6 COBULTST 
ADD 0,00025 CiOds C10 Cede D204 C52. GIVING. RSTN.(1308.. 0... CUBULTSS 
MOVE 99907,550 TO ANSN (13), COBGLTST 
ADD C104» #100000 GIVING RSTN (1423 COBULTST 
O29ROND. MOVE ZEROS To C104s3 CA33 C723. PEF «eS; PEZeRS. D103... . COBULTST 
ADD C104 Tc C&3s CUBULTST 
MOVE C83 Tc AKSTN (15)3 COBSULTST 
MOVE 99999,999 TO ANSN (19), . CUBOLTST 
ADD C104 TO RSTN (16) ROUNDED. CUBULTST 
MOVE 1000CC TO ANSN (16). COBULTST 
ADD 111146115 TO C723  COBULTST. 
MOVE C72 Tc RSTN (17)3 COBULTST 
MOVE 11111,11 TU ANSN (17), COBULTST 
ADD c72. .CO95 GIVING ROTN 618) ROUNDED _COBULTST.. 
ADD ANSN (17) 0.01 GIVIWG ANSN (19). COBULTST 
ADD C72» ,0095 GIVING RSTN (19) COBULTST 
MOVE 14141212319. TO ANSN (19)... 
AND C30» .99999 GIVING PEF<S3 COBULTST 
MOVE PEF*S TO RSTA (3)3 COBOLTST 
MOVE ” 421.99" TU ANSA (3) 2. 2 ites Aiaidie i Ghar § cna i cath the, ee OLE TES Tet, ony 
MOVE O TO PEF =S3 COBULTST 
ADD C30» 299999 GIVING PEFS ROUNDED COBULTST 
MOVE. PEF@S TO RSTA (422. : 
MOVE "™ 122.00" TO ANSA Cady COBULTST 
ADD c10 To 010 ON SIZE ERROR MOVE C30 TU RSTN (20). COKULTST 
_ MOVE. O10. TO RSTN (2008. 0 po eevee ACO BOLTS Tonic ku. 
MOVE 1 TO ANSN (20), COBULTST 
ADD ANSN (16) TO D30 ON SIZE ERROR MOVE "SZ ER" TO RSTA (9)¢ COBOLTST 
MOVE "SZ ER" TO ANSA (524. ; at std in Nampratie hae Acree 
MOVE 030 TQ RSTN (21). COBULTST 
App C30» ,335 TU C42 ROUNDED ON SIZE ERROR MOVE “ER2" TO COBULTST 
. RSTA (Ole... Fat recht endear ee 
MOVE "ER2" TO ANSA (6). COBULTST 
MOVE C42 To RSTN (22)3 COBULTST 
MOVE 12¢34 TO ANSN C2200 00 0 COBOL TST 
MOVE ALL 4 TO CRP™CMP*SCe CRP™CMPPDS, COBULTST 
ADD CORRESPONDING CRP=CMP*SC TO CRP*CMP=0DS3 COBULTST 
MOVE Ci UF CRPTCMP@DS TO RSTN (2305 CC 
MOVE CC2 OF CRP@=CMP*US TO RSTN €24)3 COBULTST 
MOVE ca OF CRP*CMP"=05 TO RSTIN (€25)3 COBOLTST 
_MQVE CcC4 OF CRP*CMP"0S$ TO RSTIN C@7)3 2 OU UC OBUL ISTO 


018340. 0 on. 


wGOBOLTST 


OOH OL FSi eee 


POOR OE LS itemie srt eeu td ete. 


So EO BOL VST oo voter a ies ake 


erro 01-19] 1 eee ee eee 


-COBULTST 


eta Bose anism 


= 
s 


7 


| ER es em eRe 


® \e 
018350 MOVE CC22 CF CCS OF CRP*CMP=DS TE RSTN (2693 12722°67 
018360 MOVE CCC3 OF CRP=CMP*US IO RSTN (28)3 COBULTST @ 
018370 MOVE. CO4 OF CRP@CMP 809. TQ RSTN. CEG oc ee BAC TES Tore ei 2 ech ace etter a ah Se eh 
018380 MOVE €88 TO ANSN (23)3 COBOLTST 
018390 MOVE 444 TG ANSN (24)3 COBGLTST 21@ 
018400 MOVE. 68 TU ANSN C29).00000000 0.20 000... ~COBULTSI. 2. ee a ee a eer ee ET RD ore ae 
018410 MOVE 444644 TO ANSN (26)s ANSN (28), COBULTST ‘ 
018420 MOVE 888.84 TO ANSN (27)5 ANSN (29). COBULTST 1@ 
018430 Een Ll eath nael ea A US Bite acre. wid aetntrol aia Si eat Ron nde canals pense es OB UME S Piece Yon, Jal agiiyue te tees Ss eel aed 7 
018440 ADD .001 To CC4 UF CRP@CMP=SC3 COBOLTST i 
018450 ADD .001 TO CCC4 OF CRR=CMP=SC3 COBULTST | 1@ 
018460 ADD CORRESPONDING CRP“CMP"SC TO CRPSCMP*DS ROUNDED ON... COBOLTST oo 0 Www 
018470 SIZE ERROR MOVE "3Z ER|3" TO RSTA C7), COBULTST " 
018480 MOVE "SZ ER3" Tu ANSA (7)3 COBULTST "@ 
918490 MOVE CCC4 OF CRP#CMP="DS TO RSTN (3004... _COBOLTST . a FE a ee cere eee eS 
018500 MOVE cCCc4 OF CRP*CMP*US TO RSTN (31)3 COBULTST ba 
018510 MOVE 88889 TO ANSN (30)» ANSN (31). COBULTST 1@ 
018520 MOVE 3.70 AUNE.. |. on . de sneer Maud: Semen Mite enw eek ETSY a. oe b igkaien gad totale a ete OE eas Te acca cth tet acetate Saion Aw eegee|9 
018530 MOVE 7 TO CVA3 COBULTST ky 
018540 MOVE 31 TO CVN3 COBLLTST 1@ 
. 018550 PERFORM VERIFY, CUBULTSION... . Stan <6 obese a Nae De tetas whit a Seow font nt An tae alain eS te 
018560 COBOLTST 
018570 COBOLTST hed 
o185a0.—. 7 . COBOLTST.. sot hiintit Guat Rs oe eT Leon tl soda eenaenmeal 
018590 P030 SECTION. CUBULTST : 
018600 0301-6 MOVE "Po30" TO SECT#=NuUs COBULTST aI1@ 
018610 MOVE “SuaTRacl STATEMENT 7,9,6" TO SECTI*TITLE, COBULTST Ais Mugler let a ioe at cele ad 7 = 
018620 MOVE "114211 TO cSa2s COBULTST i 
018630 MOVE 1 TO C103 COBOLTST 1@ 
018640 MOVE 10 TO ¢203 . FG all oah ia Cem eee a, Se ee OT OSPR ee eee ee eee 2 
018650 MOVE 20 TC 0203 COBULTST = 
018660 MOVE 44,44 TO C423 0733 COHOLTST 1@ 
018670 MOVE 4444,4449. TO.C943 CTS Me aati ata taeitiaan RE, chaste Meta tease Sta a ail 
018680 MOVE 88888,8850 TO ¢1043 COBULTST at 
018690 SUBTRACT C10 FROM C203 COBUOLTST 2@ 
018700 MOVE C20 To RSTN (4)4. COB UES eee A oe tien anienes hie Fay sie ene ee hee 
018710 MOVE $ TO ANSN (1). COBULTST 
018720 SUBTRACT 1 FROM C203 COBULTST 1@ 
018730 | MOVE C20. TO RSTN. C2)2 Sea teste cada hr Se See a A a I rs at a 
018740 MOVE 8 TO ANSN (2)3 . COBULTST 
018750 SUBTRACT C10» C2Gs5 1,0, 12,22 FROM C4é3 CUBULTST 41@ 
018760 MOVE C42 TN RSTN (3238 2 OUR ULES Tote cs ot, Geeta tienes halt e ele oS Bee te = 
018770 MOVE 22.22 TO ANSN (323 ANSN (C4)e COBULTST . 
018780 SUBTRACT 11.11 FROM C42 GIVING 0733 COBULTST 1@ 
.01879.0.. MOVE..C42. Tg RSTW C4) Bea 8 cA 1 i hc Oe gn Po RR ba 
018800 MOVE 073 TO RSTN (5)3 COBOLTST : 
018810 MOVE 11.11 TG ANSN (5), COBULTST @ 
018820. — SUBTRACT..C402 O« FROM D739 GIVING D735 OOBOL ES Ie . Ee ree es a i 
018830 MOVE 073 TO RSTN (6); COBULTST : 
018840 MOVE 10,11 TG ANSN (6), COBOLTST “@ 
48850... SUBTRACT..0, 14. 26-3e Ci0s D723s Onbide. C94. FROM. C10M 0 COBULEST pa ee a 
018860 GIVING RSTN (€7)3 COBOLTST i 
018870 MOVE 84427,2190 TO ANSN (7), COBOLTST 1@ 
018880 SUBTRACT C42 FROM ¢C52 GIVING RSTN Cals COBOLTST oO ef 
018890 MOVE 133,33 Ta ANSN (8), COBULTST j 
018900 SUBTRACT C52 FRUM C42 GIVING RSTN (9)3 COBULTST 1@ 
wm OFBIGO. MOVE £33493 TO ANSN (9), See inh Be ie eS ett oa) AOE TG Pas on we oe ene Pa 
018920 SUBTRACT +222,22 FROM C52 GIVING RSTN (103 COBULTST = 
018930 WOVE =333,33 TO ANSN (10), COBOLTST 1@ 
018940... SUBTRACT #111,11 FROM C52 GIVING RSTIN (11), 0 OL TST J 


@ 
018950 MOVE =2¢2,22 TU ANSW (11). COBULTST 
rd] 018960 O30ROND. COBLLTST 
018970 SUBTRACT. 0.5 FROM.C1O..GIVING CAQR cc ce ee ee COBOLTSI 
018980 MOVE C10 TO RSTN (12)6 COBULTST 
@ 018990 MOVE 1 TU C10. . COBOLTST 
Oe 019000 SUBTRACT 0,5 FROM C10 GIVING C10 ROUNDED}. 6 oe COBOLTST. 
: 019010 MOVE C10 TO RSTN (1323 COBULTST 
, 019020 MOVE 1 TO ANSN (13). COBULTST 
t cciteonitae 2049030 MOVE. 44.44.10 C523. 2 cbt eee e . QOBOLTST 
019040 SUBTRACT C52» 4400 FRUM C¥4 GIVING CS2 ROUNDED; COBOLTST 
® 019050 MOVE C52 TC RSTN (14). COBULTST 
019040 MOVE. 44.446 TO.C5S23. 0... s. eee . COBOLTST ...... 
| 019070 ADD 060001 TU C943 COBULTST 
eo 019080 SUBTRACT C52* 4400 FROM 094 GIVING C32 RUUNDEDS COBULTST 
[cine vem OL9090 . MOVE.C52. To RSTN.C1523.. Ol Bai! Foe sans aitthiean wars: ~ bikes, COSDLTST:. 
W 019100 MOVE 0,01 TO ANSN (15)3 COBULTST 
oe" 019110 SUBTRACT C104 FROM +88868+88 GIVING C52 ROUNDEDS COBOLTST 
Me teeta. OLG120. . MOVE ESB TO ASUN CPO Tb. modem lt cop wks eulbileceesatalnadclieatndeanace” COBULT SE onic ac cts eau ke sti’ 
019130 MOVE "0,01 TU ANSN (16)3 COBOLTST 
ee” 019140 SUBTRACT C104 FROM #144121611495 GIVING RSTN (17) ROUNDED; COBOLTST 
wl 049450 = MOVE #100000 To ANSN C1720. Pes _COBULTST. 
Vs 019160 SUBTRACT 83333,34 FROM C104 GIVING FE42 ROUNDEDS COBULTST 
re 019170 MOVE *$ 55555,55" TO ANSA (1) COBOLTST 
MN ee ee QLYLBO MOVE PEZ2 TO. .RSTA (Lde |. . COUBOLTST 
ie 019190 SUBTRACT 2222-23 FROM C94 GIVING PEFO2 ROUNDED ON SIZE ERROR COBULTST 
@« 019200 MOVE "SZ ER1" TO RSTA (2). COBULTST 
Mo. . 049210 MOVE PEFO2..TO RSTA (3)4.. n namie meitee hie «pia «COR ULTST 
i 019220 MOVE " $29222.22" TO ANSA (3). COBULTST 
@. 019230 SUBTRACT 1 FROM C104 GIVING C10 UN SIZE Enh Os SUBIR AGT COBULTST 
2 ae , 19240 10 FROM 020 GIVING BSTN. (18). reste Atectonte ae OBUTL TST wx & cet: 
pt 019250 MOVE 10 TO ANSN (18), COBULTST 
"@* 019260 O30CRP, MOVE ALL 5 TO CRP#CMP=0S; COBCLTSI 
2 Mo. 049270 MOVE ALL 2 TO. CRPSCMP@SCs BOOB UT S Y cce Sim snrs-cadionlohsute cachcons 
aa 0192R0 SUBTRACT CORRESPONDING CKP=CwP=SG FROM CRP=CMP=DS ROUNDEDS  COBOLTST 
“@* 019290 MOVE C1 OF CRP=CMP=0S TO RSTN (1923 COBOLTST 
Moe, O19300 MOVE CC2 OF. CRP*CMP*DS TO.RSTN (C2028. 200000 Llu... | COBULTST.. 
vs 019310 MOVE Cy UF CRP=CMP=Ds TO KSTN (2193 COBOLTST 
@ 019320 MOVE CC2 OF CRP™CMPsUS TO RSTN (22)3 COBOLTST 
iiss dap eee ea MOVE CcC4 OF CRP=CMP"US TO RSTIN.C23)2 200 .. . COBOLTST .. 
2 " 019340 MOVE ccC3 OF CRP@CMP“US TU RSTN (24); COBULTST 
@: 019350 MOVE CC4 OF CRP=CMP*US TO KSTN (25)3 COBOLTST 
eens vn 49.360 MOVE .333..TO ANSN..€1923 000000. 5” nani Mette itt, tere nOrs UU S hoses. ds apace alae teats, 
ig 019370 MOVE 555 TO ANSN (20) ANSN (22), COBQLTST 
oe: 019380 MOVE 67 TO ANSN (21). COBLLTST 
elo 049300 MOVE 555.55 TO ANSN (ea) | Neate aticetetia Aes, Tocatan, ee MG te cate bee tt! 
a 019400 MOVE 333633 TO ANSN 623)» ANSN. “(29)3- COBOLTST 
019410 MOVE 3 TO AUN3 . COBOLTST 
a 019420 VAC] Se Mae . CH’ ee ec ee en ee Nae eT EMIT Re (|: 1c! es 2b A TT 
019430 MOVE 25 TC CVN3 COHOLTST 
019440 PERFORM VERIFY. COBULTST 
beasts ge tincsaste OY MS Ocalctue cin.  ec% bichst Galea bs evs erealie airtel “Se. Sooiplngy ees Mce od celle HAGRt eset Desert Actas 2 teat ELT GD tO Seong ky 
019460 . COBOLTST 
019470 COBOLTST : 
i O19 GRO POST SECTION, ss nalts at Mei eM eae ciate eect on ice o eB OT ST ostinato asus ooeer as oe 
: 019490 0311, MOVE "PO31" TO SECT=NUs COBOLTST 
019500 MOVE "MULTIPLY STATEMENT 7.9.9 " TO SECT#@TITLEe COBULTST 
449540. MOVE 222,22 TO C523. Fat Bode Si ch ce Sa ctl ad a SRO 00-118 a ee ee ee 
019520 MOVE 1 TO C103 COBULTST 
019530 MOVE 10 TO C20» C30 COBOLTST 


Meshes hi OA OBO. Ano oc MOVE cg OO OS ie ce ies 0 long, Aa ee es ll -__COBULTST 


e 
019550 MULTIPLY C20 BY C3U3 
e@ 019560 MOVE C30 TO KSTN (1)3 
: 019570. MOVE 1CC .TO ANSN Claw... 
019580 MULTIPLY C30 BY C30 GIVING RSTN (2). 

r 019590 
oo 019600 MOVE 10000 TO ANSN (4), 7 bs, 4 ata De tit te acl ces se 
0196410 MULTIPLY 0,00000001 BY ANSN (2) GIVING RSTN (3)3 

T 019620 MOVE 0,0001 TO ANSN (3), 

Yee eee ee OSL9O3O. MULTIPLY ©0,0000000001 BY J00GQU00n000 . GIVING RSIN. C4)a..... 
019640 MOVE 1 TO ANSN (4), 

@ i 019650 MULTIPLY C52 BY *3 GIVING RSTN (5)3 
Js wae... 49660 | MOVE 664266.TO..ANSN..(3), 0 ... 

019670 MULTIPLY C52 BY 2 GIVING RSTN (6)3 
rd] 019680 MOVE -444,.44 TO ANSN CO), 
019690 MULTIPLY ANSN..06.). BY. 22..GIVING 303 
e 019700 MOVE 030 To RSTN (793 
@ 019710 MOVE 888 TO ANSN (7). 
fe 019720 MULTIPLY ANSN.¢6). BY *2 GIVING D30.ROUNDEDS OU 
019730 MOVE 030 To RSTN (8)3 
ee. 019740 MOVE 889 TO ANSN (8). 
Me 019750 MULTIPLY 22.22245 BY 2 GIVING D42 RUUNUERS 
’ 019760 MOVE D42 TO RSTN (9)3 

@ 019770 MOVE 44,44 TQ ANSN (9), 
eee 0.49780. MULTIPLY 22.2225 BY 2. GIVING D42 ROUNUEDS 
; 019790 MOVE C42 TO RSTW €10)3 

@- 019800 MOVE 44,45 TQ ANSN (10), 

a Wes 019610 MULTIPLY AKSN (2) BY C30 GIVING RSTN (11) ON SIZE ERROR 

mat a 019820 MOVE "SZ ER1" TO RSTA (1). 

T 019830 MOVE 1000000 To ANSN (11). 

ey 019840 MULTIPLY C42 By 202 GIVING C10 SIZE ERROR MOVE "SZ ER2" 

el 019850 TO RSTA (2), 

20° 019860 MOVE "SZ ER2" TU ANSA (2)3 
Ps coca) 019870 MOVE 1.10 ANSN. C12)... 
mn 019880 MOVE C10 TO RSTN (12)3 

e” 019890 MULTIPLY RSTN (12) BY *4 GIVING PEZ*L ROUNDEDS 
Meccan, 919900 MOVE PEZ*L TO RSTA.(C3)22.. 

Hf 019910 MOVE ‘a 4,00" TO ANSA (3), 

e* 019920 MULTIPLY RSTN (12) BY #5 GIVING PEFPS ROUNDED ON SIZE ERROR 
caieeh Shs 0.19930 MOVE "SZ2.ER3". TO RSTA. (4), Maan tieah= wanee eee 
019940 MOVE PEFPS TO RSTA (5); 

eo. 019950 MOVE * =5,00" TO ANSA (5). 
lhe Sane oe Oe POO MULTIPLY. 2222225. BY @.GIVING PEDB. ROUNDED SIZE ERRUR 
_ 019970 MOVE "SZ ER4"™ TO RSTA (0), 

eo: 0199R0 MOVE PEDB TO RSTA (793 
BOR os -, 019990 MOVE “2... $44,495 0. TO ANSA.£72)4 0. 0.0.22. 

- 020000 MOVE 3 TO AUN,” 

@ « 020010 MOVE 7 TO CVA; - 

Peetu 20020. MOVES DSTO CVNet. eaieGec Se bdeuebdn Sufane. a Rvithin Relenelitatierostetratsstcntets 
x 020030 PERFORM VERIFY, 

@" 020040 
ee eee Se ee rite tpto-ciaenemes ze 
Mo 020060 

@* 020070 
Pl. 20080 POS2 SFCTIONs 
ie 020090 0321, MOVE "PC32" TO SECT“NO3 

e » 020100 MOVE "OTVIDE STATEMENT 799010 " TO SECT#=TITLEe 
oO. Rr OA (Ale Se os °F On ee) ee Ps Ce rT 
‘ 020120 MOVE 10 TQ C20; 

or. 020130 MOVE 20 TO D203 
q Me OPZOLHO MOVE 100 TO C303. 


COBULTST 
COBOLTST 


COBCLTST 
COBOLTST 


COBULTST. 


COBULTST 
COBULTS1 


CUBULTST . 


COBOLTST 
COBULTST 


. COBOLTSI. 


COBULTST 
COBCLTST 


LGBULTST 


COBOLTST 
COBOLTST 


COBULTST ... 


COBOLTST 
COBULTST 


COBULTST. . 


COBULTST 
COBULTST 


_COBOLTST . | 


COBGLTST 
COBULTST 
COBOLTSaT 
CUBOLTST 
COoBOLTST 


. COBULTST 


COBLLITST 
COBLLTST 


COBULT ST. 


COBOLTST 
COBOLTST 


' COBOLTST 


COBLLTST 
CUBULTST 


--ACUBULTST . 


COBULTST 
COBOLTST 


. COBGLTST. .. 


CUBLLIST 
CUBCLTST 


COBQL TST i cceccees cece 


COBOLTST 
COBULTST 


COBOLTST... 


COBULTST 
COBOLTST 


woo COBOLTST 0. 


COBULTST 
COBOLTST 


_COBOLTST. 


COBULTST 
COBOLTST 


COBOLTST 
COBOLTST 


pe off c= 18) [as 18th Di Weeden re de en ene a Ee 


ROG EIA Vd Ste, asec aeeedeecnee etek 


ate Decumenis/inc 


2 


020150 MOVE 444,441 TO C7334 CGBOLTST 
020160 MOVE "888,888 TU C83, COBULTST 
% 020170. DIVIDE CiO INTO. c202..0.0 00.02. ous abtohs Suacatacsin ik” aS ae COBUE TST 
020180 MOVE C20 TO RSTN (1)3 COBULTST 
020190 MOVE 10 TO ANSN (1). CGBOLTST 
noe wee. . O©20200 . DIVIDE C20 INTO D20i |. ie gle teases te oo we COBULTST o .. 
' 020210 MOVE 020 TU RSTN (2)4 COBULTST 
: 020220 MOVE 2 TG ANSN (2). COBULTST 
0 ere ee 202300... .DIVIDE C20 INTO C30 GIVING RSTN (326 | ee oar fae eat Re el aN: phcadcad oil as irne meinen detnat carats 
é 020240 MOVE C20 TO ANSN (3). COBOLTST 
020250 DIVIDE 1 INTO C73 GIVING RSTN (4)3 COBULTST 
8 ee. 020260 _- MOVE. *444,441. TO ANSN (C4) 0. . Eaii~ad oes we LOBELTST 
020270 DIVIDE =2 INTO C83 GIVING RSTN (5)3 CUBULTST 
y 020280 MOVE 444,444 TO ANSN (5), COBOLTST 
[iiiee Soe ewead —~DIVIDE.020 INTO.C83 GlvylnG RSTIN (6)3 2.00 ou COBOLTST 
= 020300 MOVE *444,444 TQ ANSN (6), COBOLTST 
vi . 020310 DIVIDE 10000000000 INTU 10000000000 GIVING RSTN (7) COBULTST 
Teer  OFO320. 2.2... MOVE C410 .TO.MNSN (72,00 000. wee, CUBOL TST 
iis 020330 MOVE "8888,8810 TO C94, COBLLTST 
_ 020340 BIVIDE D20 INTO C94 GIVING RSTN ¢8)3 COBOLTST 
Mideeicun czas OZUSSOL. MOVE .*4444,440 TQ ANON C8). knee ait iaue uo» ot COUDLET SA 
_ 020360 DIVIDE -2 INTO C94 GIVING RSTN (9) ROUNDED; COBOLTST 
in 020370 MOVE 4444.44, TO ANSWN (9), COBOLTST 
Pn ae  O20380. ADD. 0001 TO CoH, .. vats vate ne -COBOLTST 
= 020390 O32RSE, CUB TST 
ie: 020400 DIVIDE -2 INTO C¥4 GIVING RSTN (10) RUUNDEDS COBULTST 
eres dete gs 020410 MOVE..4444,440 TQ anSw (10), ie Sia. 3 . COBULTST tidy Cent en Geeie cee Seen: ees ia teen eet on ahs oe 
ay 020420 DIVIDE D2o INTO C83 GIVING RSTN (41), ON SIZE ERROR MOVE COBOLTST i 
~ 020430 "SZ ERI" TO RSTA (1)6 COBULTST a 
Mw oes 0804R0 . MOVE #444,444. TY ANSN C11). Sinn Pietin shia Sac altadtos SoBe CRNA EE 5 Pte a cod Poatecci oe nateseisoioa aha tah anette 
020450 DIVIDE C2o Into €36 GIVING D1O ON 31 ze ERRUR MOVE "SZ FR2" COBOLTST 
020460 TO RSTA (2)3 COBOLTST 
Lela 8 ..020470 | MOVE "SZ. ER2" TO ANSA (22.0 ..... di ome lees tat creases LENGE YS Piling, a tet os age tpn De ocast chee yea ta cee as 
al 020480 DIVIDE C20 INTO C94 GIVING C42 ON SIZE ERRCR MOVE "SZ fR3" COBOLTST 
ay. 020490 TO RSTA (3)3 COBOLTST 
ee we 20500 MOVE "SZ ER3". TO ANSA C302 2 0 ee GOBULTSTO 0 0 
oa] 020510 SUBTRACT 80000 FROM C¥4. COBULTST 
se 020520 MOVE ZERC TO C73, COBULTST 
i eee oo aie DIVIDE.O20 Into. c94. GIVING C73 ROUNDED SIZE ERROR. MOVE... ..COBOLTST..... 0 of tl Ne acer re Se Fe Ee a 
‘ 020540 "S2 ER4™ TO RSTA (423 COBOLTST a 
Re 020550 MOVE C73 To ASTN (13)3 COBULTST 3@ 
Oona dt .. 029560. MOVE. "SEUERS™ 10 ANGN CAR ub cs ths ence fee ul noe pPOOBUE EST tants. oe toate Mh oet ht oA et tt ee 2 
(4 020570 AD) ,0001 TO C94, COBULTST i 
ia! 020580 DIVIDE D2c INTO C94 GIVING C73 ROUNLED ON SIZE ERRUR MOVE COBULTST 1@ 
: 020590... iss em Ms gt = r= A = tA eee el 6-81 : 
020600 . MOVE C73 TO RSTN (14)3 COBOLTST i 
| 020610 MOVE "SZ ERS" TO ANSA (5)3 COBOLTST : 4@ 
Fo O20620. . MOVE ZER@ To C10, taal tab Aditi e Set I ORION ee, utente eee eee er te . AG 
. 020630 DIVIDE 0 INTO C30 GIVING KSTN (15) ON SIZE ERROR MOVE COBOLTST 46 
020640 "SZ ERO" TO RSTA (6)3 COBULTST «| @) 
ee 29 GGO MOVE "S22 ER6" TO ANSA (6), . as ane aw NO GTS oe i nel esa a renter “8 
°020660 BIVIDE C10 INTO C94 GIVING RSTN (16) ROUNDED ON SIZE ERROR COBULTST 49 
020670 MOVE "SZ ER?" TO RSTA (793 CUBULTST 51 @ 
po O2068O  .. -_ MOVE "SZ ER7" TOA ANSA CPG iE Oe ott es wosvec @ GCOBOLTST unk -, ; Bi 
020690 DIVIDE ©2 INTO C83 GIVING PEH ROUNDED? COBULTST i 
020700 MOVE PEH TO STA (8)3 COBOLTST | @ 
20770 MOVE eed dah TO ANSA (8). reer 155° |e 0) ee ae a rT 
020720 DIvIDE 4 INTO C83 GIVING PEF=5 ROUNDED ON SIZE ERROR ‘ COBOLTST 6 
020730 MOVE "SZ ERB” TO RSTA (9)3 COBULTST ; s @ 
029740 0 MOVE PEF@S Tg RASTA C1903) eh ee CORULTST 3 .. is 5 


Beta Déctu.rerisrtic. 


a 
020750 MOVE * 848,89" TU ANSA (10). 
@ 020760 032V. 
ae 0.20770 MOVE 3 TO AUNS 
020780 MOVE 10 TO CVA} 
2] 020790 MOVE 16 TO CVN; 
020800 _ PERFORM VERIFY, 7 
: 020810 
@ | 020820 
RK, ..0.20830 
020840 
a 020850 
"sesh eel ee) ORO BGO 
020870 P033 SECTION, 
@ 020880 0331, 
2 020890 MOVE "PO33" TO.SeECT*NOs Biodiesel Mt ee Nat Bakers dome 
i 020900 MOVE “C@MPUTE STATEMENT 7,9,41"% TO SECT@TITLE, 
@ 020910 MOVE 1 Ta C103 
eee 020920. MOVE 10 To. c2Qz.. dectteats 
: 020930 MOVE 100 Te C303 
, 020940 MOVE 22.25 10 C42; 
Pe 020950 MOVE. 00.125 TO C73. | 
d 020960 COMPUTE RSTN (1) = C20 * 2 / C10 + C303 
Y 020970 COMPUTE RSTN (2) EQUALS C2q TIMES 2 DIVIDED BY Clo PLUS C305 
ca 020980 COMPUTE. RSTN (3). FROM c22 MULTIPLIED BY 2-4. C1 QZ. ou. 
us 020990 MOVE 120 Tc ANSN Cl)» AWSN €2), 
@* 021000 MOVE 22 TC ANSW (3). 
Le 021010 COMPUTE RSTN C4) 3-030 / C205. 
2 021020 OIVIDE C20 INTO C30 GIVING RSTN (5)3 
eo. 021030 MOVE 10 TO ANSN (4)»5 ANSN (5)o 
i 021040 COMPUTE RSIN ¢6) = €10 +2 C42 4¢ C73 * B/S "2 ee BS 
me 021050 MOVE 45.75 T@ ANSN (6), 
@” 021060 COMPUTE RSTN (7) = 2° CyO * C#C30) + Ctye TIMES 4) DIVIDED 
a 021070. BY. 220.4 .C30. EXPONENTLATEO. BY.0,5. * C203. le 
a 021080 MOVE 116.C00 TO ANSN (7)> 
@* 021090 COMPUTE RSTN (8) EQUALS C30 MINUS C20 ** C10 * 2,5 7 4 « 
io 021100 C42 / 2" (78. « C73) *_C8C30)3 o 
io 021110 MOVE ©69,50 TO ANSN (8), 
. 021120 COMPUTE RSTN (9) = (C30 MINUS C20) ** C10 * (2,5 = 4 * C42) 
Gee 021130. He CURB eo C78) & AR C30))% BS eat 
uy 021140 MAVE =3992,.50 TO ANSN (9), 
021150 COMPUTE RSTN (10) = 4444444444 * 2 7 (C20 * C30) ON SIZE 
ae 021160 ERROR MOVE "SZ ERA" TO RSTA ())-5. 20 0 cn, 
(he 021170 MOVE 8888888.868 TQ ANSN (16). 
ee: 021180 COMPUTE RSTN C11) ROUNDED = ANSN (10) + 0.0004 / C10 
al (021190 MOVE 8888866,.888 TO ANSN (11)... cea 
3 021200 COMPUTE RSTN (12) ROUNDED = ANSN (10) + 0.0005 / C103. 
@ “ 021210 MOVE 8888888,889 TO ANSN (12). 
(}—-—-- 0214220 COMPUTE RSIN (13) ROUNDED = C73 + C30 *.c20.* c42/ (C10 = 
He 021230 C10) ON SIZE ERROR MOVE "SZ ER2" TU RSTA C2). 
@ 021240 MOVE "SZ ER2" TO ANSA (2). 
Ay 029250 0332. 
ne 021260 COMPUTE C5c KOUNDED ® ANSN (12) + 0 ON S]JZE ERROR MOVE 
@» 021270 "SZ ER3" TO RSTA (3). 
ip areca R ac! 0 5 0-5-1 Rt Ai a ee ee no ee RE SOIR Oe ee ORE RSE JL yiasisornet moet et 
pe 021290 
er 021300 MOVE "SZ ER3" TU ANSA (3). 
ann 21310... COMPUTE PED. ROUNDED 50030 2° C20) 4 C20 = C10 + 0,99499 ON COBOLTST oo 
_ 021320 SIZE ERRCR MOVE "SZ ERS" TO -RSTA (4), 
@ * 021330 MOVE PEHD TO RSTA (5)3 
a 021340... MOVE "See e ee, 99% TO ANSA (5), 


~ COBOL TSI. 0... 


ee of tN C01 ie 0: Ge 


COBULTST 
COBOLTST 


COBULTST 
COBULTST 


COBULTST 
COBULTST 


 COBULTST 


-COBULTST... 


A OBULTST... 


. COBULTS Tw, 


 COBOLEST . 


~COBOL TST. 


COBULTST. ... 


COBULTST 
COBOLTST 


COBEL FB] — one. 


COdULTST 
COSOLTST 


COBULTST 
COBOLTST 


CUBOLTST 
COBULTST 


COBULTST 
COBOLTST 


COBULTST 
COBULTST 


COBULIST-- 9. 


COBULTST 
COBOLTST 


COBULTST. .. 


COoULTST 
COBULTST 


wos COBULTST... 


COBOLTST 
COBOLTST 


CUBULTST 
COBULTST 


COSQLTST 


COBOLTST 
COBOLTST 


COBULTST 
COBULTST 


spore OF <0) iy 1 Cone on em ea 


COBOLTST 
COBOLTST 


COBOLTST. 


COBULTST 
COBULTST 


COBULTST OO 


COBOLTST 
CQOBOLTST 


y 68 31-103 Be ie Cae oe ne OE 


COBOLTST 
COBOLTST 


COBOLTST 
COBULTST 


ioral 0 a <0) a Es enemas eee ae aa ee ene J 


ff i & = o 
Se - Sf £_m@ 
i 


021350 
021340 
021370 
021380 
021390 
021400 
021410 
021420 
te ieimreet: Odd TO 
021440 
021450 
021460 
021470 
021480 


win siae 021890 


021500 
021510 
021520 
021530 
021540 
021550 
021560 
021570 
021580 
021590 
021600 
021610 
021620 
021630 
021640 
021650 
021660 


Pgh ee ciel oie ig ee OE 


021680 
021690 
021700 
021740 
021720 
ceneananO eles 
021740 
021750 
021760 
021770 
021780 


021790 | 


021800 
021810 


comeeneee soon wns O24820 


021830 
021840 


021860 
021870 


021890 
021900 


021920 
021930 


921850. 


vo 2A BBO. 


0219140 0 .. 


an OBAGHO 


COMPUTE PEH3 RUUNDED FROM (C30 = C2L) 4 (C10 * C20) + COBULTST 
990,995 ON SIZE ERROK MOVE "S2 Enxd™ TU RSTA (6), CUBOLTST 
MOVE PEH3 TG KSTA. Che Ree Sony ees oe CUBULIST 
MOVE "$#1,000,00" TG ANSA (7). COBULTST 
MOVE 3 TO AUN$ COBOLTST 
MOVE 7 TC. CVA; COBULTST. 
MOVE 14 TC CVN; COBULTST 
PERFORM VERIFY. CUBOLTST 
ga ; . COBOLTST 
CUBULTST 
COBULTST 
COBULTST. . . 
PO34 SECTION. COBULTST 
0341. COBOLTST 
MOVE "PO34”" TQ. .SECT#NO? a a ' COBULTST 
MOVE "SIZE ERROR CLAUSE ¢#Smian TO SECT=TITLE. COBULTST 
MOVE 21 T0 C105 D103 COBOLTST 
MOVE..10.To C20; 0203... . COBOLIST... 
MOVE 100 10 C303 0303 COBOLTST 
MOVE 2222.222 TU C733 COBULTST 
MOVE 444444,4444 To cid4, re 2 COBOLTSI 
ADD ci» p10 GIVING RSTN (1) UN SIZE ERROR MOVE WER YT TO COBOLTST 
RSTA (1), COBULTST 
MOVE 2 f0 . ANSN CL),...... _... COBULTST 
MULTIPLY C104 BY 5 GIVING RSTN. (2) SIéeé ERROR MOVE “WERQ" COBULTST 
TO RSTA (2), COBOLTST 
MOVE 222222€,222 TO ANSN (2). de TEE COMULTST 
SUBTRACT C73 FROM Cio4 GIVING RSTN (32 ON SIZE ERROR COBOLTST 
MOVE “ERS” Th RSTA (3) COBOLTST 
ELSE. COBULTST. 
MOVE 442222, 2224 TO ANSN Cade COBULTST 
DIVIDE O IATO RSTN C4) Ow SIZE ERRUR CUBOLTST 
MOVE "ER4" TQ RSTa.Ca).. oO COBULTST 
ELSE COBOLTST 
MOVE “ERH" TU ANSA (4), COBULTST 
MOVE "ER4" TO ANSA (4)-. - Sas ae COBOLTSI.. 
ADD C1045 C73 GIVING RSTW (5) ON STZE ERRUK CUBULTST 
MOVE "ERO" Ta RSTA (5) COBOLTST 
ELSE. a dco $e Beary. hb i ahite oh fittest cate ne tane torte ate COBULTST..... 
IF CLO # C20 MOVE 446666,6664 TU ANSN (5) COBOLTST 
ELSE COBOLTST 
ADD C30 TQ C50 SIZE ERRQR MQVE "NO" TQ _ANSA (5)) _CUBOLTST o... 
DIVIDE 2 InTO C104 Glylws RSTN (6) SlZe ERROR COBULTST 
MOVE "FROY TQ RSTA (6) CUBULTST 
-ELSE ADD C10 70 C50 ON SIZE ERRUR 
MOVE "ER?" Ta RSTA (7) COBOLTST 
ELSE COBOLTST 
MOVE 222222,2222 TO ANSN (6), 0. 2 
ADD C104 To C50 ON SIZE ERROR COBOLTST 
MOVE 99999 TU C50 MUVE C50 TU RSTNW (7) COBULTST 
ELSE IF ¢c10 = C20 MOVE “CTL ERI" TO RSTA (8) = OC COBULTST.OOUOUUUU 
ELSE IF C104 > C4O MOVE "CTL ER1" TU RSTA (9) COBOLTST 
ELSE COBOLTST 
MOVE “CTL ERA" TO RSTA CLO) cee eee ee COBOLTST 
MOVE 99999 TO ANSN (7), COWBULTST 
SUBTRACT C FROM C104 GIvlnG@ C59 SIZE ERROR COKULTST 
_..._MOVE "SZ FRA" TO RSTA (12) GO TO a4pe 
ELSE M@VE "CTL ER4" TO RSTA (11). COBOLTST 
34L3, COBULTST 
DG Oe Bag St oe es oe wei aed de eb CO BOLTS Ps, 


COBGLTST OO 


COBULTST OO 


ACO BOLTS scat cratatds cetaceans 


cm NY DW mF wn = 


Data Cocurrecis atic. 


i 
{ 
i 
1 
i 
t 
| 
| 


021950 MUVE C10 TO RSTN (9)3 COBULTST 
021960 MOVE 101 TO ANSN (9). CUBULTST ® 


021970 . GO TQ 34a. |... .- ae fos, M Piet strat Dean Aayith ta Aa OO TQS tan wert Sect soled tae 1s ee bet 
021980 34L2. COBULTST ; 
, 021990 MOVE "SZ ERA" TU ANSA (12) COBULTST e 


ae 022000 GOTO 34.3... . eae eee snssa vBich pate eles “pestle avn nametaacin fee ahs exes LEE RT cones > 28 Spyattecion detest Oat ge Taree te Se Renae, Biome 
a 022010 34.4, CUBLLTST 4 
; 022020 ADD C30 TO C10 ON SIZE ERROR COBOLTST 1@ 


022030... MOVE.C40O.70. RSTW. (410) 0 2. Jets doy seaulittietcane' foes tateel pal fiaa eC LIMR OME TES Wore jute rst otek) Metaind ap Stele an hth ae 7 
022040 ELSE MOVE "CTL ERS" 10 KSTA (13), COBULTST 4 
022050 MOVE 101 TC ANSN C10)« COBULTST '@ 
022060. MOVE 3. TO. AUN, 22 7 te tate eeee COBDLTS Too. ot irk Stat RE Yt th td aan se A a tee eae : 
022070 MOVE 10 TC CVN3 COBULTST 
022080 MOVE 13 TO CVA3 COBULTST "@ 
022090 PERFORM VERIFY. | . ot gs tan tt ce aptskd whste: nt ATT SES cctaee devin on: atten anisaitek! anlnn termes atone th st ste ie ee eo 

" 022100 COBOLTST 
‘ 022110 | COBOLTST 1@ 
Vee ew .. 022120 . - bt  aeeeee OBaes Es Sia endian cet TET NEIL SU ces ites Yhark oh, Saylmadelnteh nS tae iceland 

: 022130 COBOLTST 

4 022140 COBULTST "@ 
e 022160 COBOLTST 

n 022170 : COBULTST - "10 


; 
i 


GR ore, 


' 
t 


: 022180 PO35 SECTION, bye Fo, Saab, aodrur sanciat sac ae, ee COBULTST. Accou: Ears ite se DON Ori tie hae BOs 0 ay 
‘ 022190 0351. CGBOLTST F 
a 022200 MOVE "PO35" 10 SECT*NG, COBULTST 2a1@ 


2. , 02€210. MOVE "ALTER STATEMENT — TO SECT#TITLEs - « “SQBULTS tes, of ee a A Pee Oe ee ee 2a 
022220 MOVE 1 TO C3U» C10, COBULTST ; iii 
022230 MOVE ALL 9 TU C42, COBULTST 21@ 

ee  OPA2RO . . AUTER ISU 4. TU PROCEED TO .S58L 15... . oon... oes daudied wamatens ome MOBOLIST. < cu a aoe ne es ee 2 

e 022250 ALTER 35,2 TU PROCEED TO 35AL1As COBULTST 28 

2 022260 39L3 OF PO35 fO PRUCEED £0 35AL18 OF 0353» COBULTST 21@ 

0 ee . 022270. | .. 35L4 70 PROCEED TO 3542... cpptevttecratct me MIO GT, o. ascasc oo eluhtendpeenrieacen Siena eee - 

an 022280 ALTER 35L1A UF 0352 TO PRUCEED TO 35AL3A OF 0352. COBULTST is 

Me 022290 ALTER UQL1 OF PO35 TO PROCEED TO UdL2 OF 0352 COBULTST 1@ 

MM ncneane  O22300 -UQL2 OF 0352. TO. PROCEED TO UWL3 OF O95 300 i ee ee COOL ST ce cece cee eee ta 


StU 
7 8 


wy 


. 022310 GO Te 351. COBULTST 
is 022320 XL. ALTER 35L3A TO PROCEED TU 35AL5- COSLLTST 1@ 
ee 6, O2 2330 GO TO 35L3A GF. O35.2-+... aes hehe fe cence meet caer eee AU TST ee 


” 022340 XL1. CQBULTST 7 

ms 022350 ALTER DQ3 TO PROCEED TO A@3, , | COBOLTST . “0 
,  O22360 AQIe.. te staan’ 2 arate Pad uma ates 5 Tout Pe ie oss ochre lS a Ls ans, Nie tie See pects ate Re a aan ne - 
“oy 022370 MOVE C36 TO KSTN (C30) Gu TU 35TTHRUs | COSULTST 0 

022380 3511. GO TO 35EF1, CUBULTST 1@ 

Seana om © 2 5 Ne Je >] 2) meee «12 A Sines ems 20 Went ns Etec Oe AOD 1 ree es x= YE Wie. By Mle ne ne eee eee 
022400 35AL1, MOVE C30 TO RSTN (C3023 ADD cLO TU C30, COBULTST i 

022410 GO TO 35L2> | , COBULTST 4@ 

J OP 2420 AQ1.. . MOVE £30 TO RSIN (C3023 a0D C10. 10 C3038 2 COBOL TST oe occ nn oe 
had 022430 ALTER DQ2 TO PROCEED TO AQ2s GO TO LDa2. COBULTST ic 

“7 022440 3542, GO TO 35EF2, COBULTST \@ 

eee iQ QCO50535EF Pine. no MOVE, Po TORS UN CSU fig ban tates ca gir tetas et COBO TO elk lle lat Fe an ear ere eee 

hal” 022460 35AL2, MOVE C30 TO RSTN (C30)% ADD C10 TO C305 COBGLTST e 
is 022470 ALTER 3511 TO PROCEED TO edi GO TO 3541. COBOLTST : ie 
bi, ee ee Ce on Oe 0 gag a sy) Se gy te ls ete ei one ae oe ean ie COT SP ok) og ee eas ae lk Beastie dy 
bel 022490 35.36 GO TO 35EF3, COBGLTST 5 

Fe 022500 35EF3. MOVE 3 TO RSTN (C30), CUBULTST A® 
022540 35AL3, MOVE C30. 70 ASIN (C3073 a0D ciO TO c3o3, BOL TST OO a 
022520 . GO TO 35,14, COBOLTST fo i 

022530 35AL4, MOVE C30 TO RSTN (C3023 ADD c10 TO C303 * COBOLTST : 1 ® 
_.022540 ALTER 35138 OF 0352 70 PRUCEFED yO 35,4A OF 03523. == = Bolts; y 


> 


a 


.s 
a 


° jo 140 


02¢550 
022560 
Q2¢570 
022580 
022590 
022600 
022610 
022620 
022630 
022640 
022650 
022660 
022670 
022680 


022690 


022700 
022710 
022720 
022730 
022740 
Q2¢750 
022760 
022770 
022780 
022790 
022800 
Q2¢810 
022820 
022830 
022840 
022850 
022860 


022870 


022880 
022890 
022900 
022940 
022920 


022930. 


022940 
022950 
022960 
022970 
022980 


022990... 


023000 
023010 


023020 
023030 


023040 


. 023050 


023060 
023070 


023080 ... 


023090 
023100 


023110. 


023120 
23130 


GO TO XL. 

35AL6, MOVE C3C TO RsTw (C30)4 ADO Cio Td C3u3 

ALTER DQ TO PRUCEED To AQL3 GO TO US1. . 

35L4. GO TO 35E€F4, 

35EF 4, MOVE 4 TO RSTN (C30), 

UQL1.e GO TO 35EF4. 

35EF OH, MOVE 86 TO RSTN (C30), 

0352 SECTION. 

DQ3e. GO.T0. oe 

35L1A,. GO TO 35EF5, 

35EF5, MOVE 5 TO RSTN (C3ud, 

35AL3A.. MOVE C30 TO RSTN (C30)3 ADD C19 Tuo C303 
GO TO U@Li OF PO35. 

35AL1A, MOVE C39 TO RSTN (C3U)3 AvI) CIO TO C305 


. ,GO0.TO 3513 OF PQ35, 

35L2A, GO TO 35€F15, 

35EF 15, MOVE 15 TO RSTN (C30), 
UQL2e GO.TO. 35EF7. a ett nas, 
35EF7, . MOVE 7 TO RSTN (C39), 
35L 3A, GO TO 35€F10, 

39EF10,. MOVE 10 TO..RSTN (x30). 
35L4A, GO TO 35EFil, 


35€F11, MOVE 11 TO RSTN (030), 

35AL4A, MOVE C30 TO RSIN (C.3V)7. ADD Cia TO C3Q; 
GO TO 35L1A. 

DQ2,. GO TO. 

0353 SECTION,. 


35AL1B, MOVE C30 TO RSTN (C30)3 AUD Cio TO C303 
gO TO 3514 Of P0335, 
35L18. GO Ta, ee up 
35EF9, MOVE 9 TO RSTN (C30), 
AQ2. MOVE C3C To RSTN ¢€C30)4 ADD C10 TU C303 
. GO.TO. xXb4. =, ae whe 
U@QL3~« MOVE C3Cc Ta RSTN (C30)3 ADD clo To C303 


ALTER 35418 TO PROCEED TU 35AL48, 
. 3544 OF. PO35 TO 35an4A OF 03529. a? 
35L 4A OF 0352 TU PRUCEED Tu 354LQq OF PO353” 
GO TO 33L1aA. 
39L3Be GO TO 35kF14, 
35€F14, MOVE 14 TO RSTN (030), 
35A.48, MOVE C30 TO RSTW (C3U)3 ADD C10 TO C303 
. §0.TO . 3544 OF PO35,.. . oe ae cas 
35AL5e MOVE C30 TO RSTN (C4¥)% ADL C10 TU ©3053 
ALTER 35.48 TO PROCEED TU 35L3b3 
ALTER 35038 0F Q353 TO PHUCFED TO. 35L2A OF 0352. 
35L2A UF 0352 TO PROCEED TO 35AL63 
GO TO 35.48, 


35EF 16. . . MQVE 16 TO RSTN (C30), we pss be Shes pa del aol a ean aha eA Bap ta 
35.48, GO TO 35EF13. 
35EF 13, MOVE 13 TO RSTN C€C3y) GU TO 35TTRRUe 


3AEF12,...---MOVE 12.TO. RSTN C030)... GO TO 35T THRU, oo. 


0Q1- GO TO 35EF16, 
35TTHRU, 

MOVE 15. TO CVN,.. _. SE ey aya 
PERFORM 35LOAD VARYING C20 FROM 4 BY 1 UNTIL C20 > CVN, 
MOVE 1 TO AUN, 
PERFORM VERIFY 
GO T@ 35EXT, 

35L0AD, MOVE C20 TO ANSN (C20), 
3SEXTe EXIT e 


CUBULTST 
COBOLTST 
COBULTST.. 
COBULTST 
COBULTST 
COBULTST 
CUBOLTST 
COBLLTST 
CUBLLITST 
COBULTST 
COBOLTST 
COBULIST | 
COBULTST 
COBLULTST 
CUBLLTST 
COBULTST 
COBULTST 
cOBOLTSS 
CUBULTST 
CUBULTST 
COBULIS] 
COBULTST 
COBULTST 
COBOLTST. 
COBULTST 
CUBULTST 
COBULT.ST 
COBULTST 
COBLULTST 
- SOBOLTST. 
COBOLTST 
COBOLTST 
CUBLLTSI. 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
COBULTST 
. CORLLIST 
COBULTST 
COBULTST 


_COBOLT ST... 


COBULTST 
COBULTST 

— COBOLTST... 
COBOLTST 
COBOLTST 


COBULTST 
COBLULTST 


peiesene ©1011. | OH Uap 02 Ivrea Soa Retiree Poke One eo ee a om 


COBOLTST 
COBOLTST 


COBOLTST. 0 


COBOLTST 
COBULTST 


COBOLTST 
COBOLTST 


COBOLTST OO. 


COBOLTST. 2... 


COBOLTST OO 


TEL ee hee. 


Osta bocus 


@ 
023150 COBULTST 
r 023160 COBULTST 
ae 023170 - ey I Figs tic ected gh ae Se once ong Sy Pee no ek IO 
i 023180 COBULTST 
. 023190 P036 SECTION, COBCLTST 
iN (023200 0361, HC OBOET See ci cciwn, caved ded eee 
it 023210 MOVE "PO36" TO SECT*NUS CUBULTST 
e° 023220 MOVE "PERFORM STATEHAENT 4.1003" TO SECT“TITLE. COBULTST 
Bei .. 0232.30. ..PEREQRM. PF=@PARZ 2 oo aoe Pe OES tc Die eel ae ees 
023240 PERFORM PF*SECT. COBUOLTST 
@ 023250 PERFORM 36135 THRU 36L36; COBOLTST 
the 923260. PERFORM 36.37. THRU 36L38. .. . Bite a) Bet Dela ach cat OU Le he Pecos STR RON te ae cee we ee 
023270 PERF@RM PF=SET1 THRU PF@SET3. COBULTST 
e@ 023280 PERFORM 36L43 THRU PF'SETS, COBULTST 
: 023290. GO..TO 34Stao iw. ow. COBOL TSI...... ae ee ee ea RN Peete eae ret ee 
i 023300 MOVE 99 TO RSTN (20), COBOLTST 
@ 023310 36S1 SECTION, COBCLTST 
7 023320 36. GO To.36P1, as eceditcs ahi Goals sap pes atten tac ies aac arn ete tee PEL ay Bi cata ec tc cal hana cose Tule eee gee eo 
. 023330 36P4, MOVE C20 TU RSTN (C20)5 AUD 1 To C20. COBGLTST 
r 023340 36P1. MOVE 14 TO C2U MOVE C2u TO RSTK (CzZ0)s ADD 1 TG C20. COBOLTST 
~ 023350 PERFORM 364P2... _ ; = hed Secantn Senecio aap EEE AT Sek, OC ee SE asia oa ert Ses eee PS 
7 023360 GO TO 36P3, COBULTST 
eo. 023370 MOVE 999 Tq RSTN (C20), COBOLTST 
ne 023380 36P3. PERFORM. 30P1A.0F 36S23 aDD.1 To C20... . A OBOLIST. . ... poise oss 
i: 023390 PERFORM 3652, COBOLTST 
@ * 023400 MOVE C20 TO RSTN (C2093 ADD 1 TO C2@U, COBULTST 
a 023410 PERFORM 3482 THRU 3683... COBOLTS1. 2 Sere 
Ms 023420 PERFORM 36PV GO TO 36EXT, CUBULTST 
@: 023430 MOVE 9999 TO RSTN cC20)4 GO 10 34PV, CUBOLTST 
“ 023440 36P2. MOVE C20 TO.RSTN (C20)4 ADD 1 To C20. COBOLTST — 7 sae ett On caele DR tl 
a 023450 3652 SECTION, COBULTST 
@~* 023460 36P1A. MOVE C20 TO RSTN (C20)5 abD 1 Tao ceo; COBULTST 
SP haite . 023470... -MOVE C20 TO. RoTN. (C20) 2. COBOL ISI ieee ae 
, 023480 3683 “SECTION, COBOULTST 
@ « 023490 36P1B. MOVE C2q TO RSTN (C20)4 ADD 1 To Céo. CUBULTST 
on 023500. PERFORM 36P4. OF 36S1,._.... sta nse incai ites vanis OLE ST gre voor gn. Begs Sel tien ieos 
4 023510 MOVE 2 TO AUN» NOVtE 22 TU CYN, COBULTST 
@- 023520 36S3EXT SECTICK, coeer ls! 
eas! Q23530 PFePAR,.MOVE.1.TO ROSIN CLI2 MOVE ALL. 9 TO C420. C520 C7 ee COBOL TST ic cee ee ee 
; 023540 PF*SEP, MOVE C42 TO ASTN (1). COBOLTST 
eo 023550 PF*SECT SECTION. COBULTST 
be 023560 36631. MOVE 2 TO RSTN C223 .MUVE 3 TQ RSIN (3d... 202. UC OBOLTST OO. Be eet ea tiel Meo Sead 
a 023570 36132, MOVE 4 TG RSTN (4). COBOLTST 
@« 023580 36133. EXIT, COBULTST 
Ma 923590 PF™SET1 SECTION. 2. 0 eee OBURTST _ 
Wa 023600 36134. GO TO PF@SET3.. COBULTST 
@ « 023640 361.35. MOVE 5 TO RSTN ¢(5)3 MUVE aN1 TO ani3 COBOLTST 
se eee AOR SO2 Gn) NOD TO, CEG sks weet eh enol ete ste te Sei eh Nas tt Tel sta Te toe OER RY ort wane pte coc aa pe pest tue eee ee bien aah 
. 023630 361.36, MOVE 6 TO RSTN (6). COBULTST 
eo” 023640 36.37. MOVE 7 TO RSTN C7). COBULTST 
sft oO 2SGSO “PERSE TS SECTION gs cc eel ceil pein Cee mamleccs wo CORLL ST foes Noe owl tens ed arenes, Sake el oe ee 
a 023660 36,38, ADD 0 TO C115% MOVE ANI TO ANI: COBOLTST 
* 023670 MOVE @ TO RSTN (8). oy COBOLTST 
fo 023680 36139, MOVE C52 To RSTIN (8). eee BOLTS ee 
kz 023690 PF“SET3 SECTION« COKOLTST 
023700 36140, MOVE 9 TU RSTN (9) GU TO 36L41. COBOLTST 
- 2237410.... MOVE C72 To RSTN (9), 2 COBOL TST 
023720 36L41, MOVE 10 TU RSTN (10). COBOLTST 
023730 PF"SET4 SECTION. COBOLTST 


D297 40 


3642... MOVE ¢29 TO c20,. 


Peseta eg el a Re oe COB PST 


023750 
023760 
023770 
023780 
023790 
023800 
023810 
023820 
02.3830 
023840 
023850 


023870 

023880 

023890 
023900 

023910 

. 023920 
023930 

023940 

vuneecen we 023950 
023960 

023970 

moe 023980 
023990 
024000 
O24010 
024020 
024030 


024050 
024060 
024070 
024080 
024090 
024100 
024140 
024120 
024130 
024140 
024150 
024160 
024170 
024180 


024190 


024200 
024210 


i isiesiee erie S 200. 


024230 
024240 


024260 
024270 
024280 | 
024290 
024300 
vere on 024310 - 
024320 

024330 

Sear neettny atone 024340. 


023860. 


024040... 


024250 0. 


36L0D, MOVE C20 TO ANSN (L20) 
ADD 1 Te C20. 

36L48. MOVE 11 TU ROTN CLd)» 

36L44, EXIT, 

PF*SETS SECTION, 


36L45, MOVE 12.T0 RSTN Ciera 
364464. MOVE 13 TO ROTN (13). 
36447, EXIT. 
B4LAST SECTION, 
J6PV, MOVE 1 TO c20 
PERFORM 36.00 UNTIL C20 IS GREATER THAN CVNe 
PERFORM VERIFY. 
36EXT. EXIT. 
PO37 SECTION. 


37. MOVE "P@37" TO SECT“NU3 


MOVE "PERFORM OPTIGNS” TU SECT=TITLE. 
MOVE 1050 TO 05U3 MOVE ZERO TU C425 (83; 
MOVE 1 TO c10» D20% C20 C50» C30» Cle» C73» 
PERFORM 37P1 1050 TIMES, 
PERFORM 37P2 THRU 37P3 1050 TIMES, 
ADD 3 TO C207 PERFORM. 3751 050 JIMES. 
ADD 2 TO C203 PERFORM 3754 THRU 37S2 O50 TIMES, 
ADD 4 TQ C20 
MOVE C10 Te C50. .PEREORM 37P1. UNTIL CS0.>.1050... 
MOVE C10 Te C503 PERFURM 37P2 THRU 37F3 UNTIL C50 > 1050, 
MOVE C10 Te C503 MOVE 13 Tu C203 
PERFORM 37S1.UNTIL 1050 < CSC... 
ADD 2 TO C205 MyVE ClO [0 C50; 
PERFORM 37891 THRU 37S2 UNT]L C50 + O50 @ 
MOVE 19 TO C203. MOVE 1.10 01103 
PERFORM 3753 THRU 3784 10 TIMESS ALU 1 TO D106 
MOVE 25 TC C203 MOVE 2 TU N1ilos MOVE 1 TO C42, 
PERFORM 37.16. THRU. 37L4E. 10 TIMES? .. 
MOVE 31 TO C20 MOVE 1 TO C52 
PERF@RM 37L1C THRU 3784 UNTIL C52 > 40; 
MOVE C190 To c733 MOVE 37 TO C204 MOVE 1 .70.. 
MOVE C10 TO C42 MOVE 2 TU 0110. 
PERFORM 3753 THRU 3/L4E UNTIL C52 > 40, 
GO TO. 37Wu, 
37MV, MOVE DSO TO ANSN (C30) ADD Cio TU C30, 
37Pi.e COMPUTE RSTN (c20) = RSTN (C20) + C103. 
AON C10 TO C50. _. ce 
37P2. COMPUTE RSTW (C20 + C10) = 
37P36 COMPUTE RSTN (C20 + 2) & KSTN (C20 + 2) + (C10) 
ADD. C10. TO C90 6 ce 
3751 SECTION. 


(c20) = RSTN (C20) + (C1095 _ 


Dios 


1050 > 2100 = 950, 


(BOR: DoT Oe D0 a, ioc Seated 
ADD C10 TO 20, 


C323. 


Bt (tbe eis 


RSTN (C20 + C10) + C10, 


NN tie ne 


S7P IA, COMPUTE RSTIN 
ADO c10 TO C50, 
37P2A, COMPUTE RSTN (c20 + C10) = 
eS eei ee e 


37P1B, 
37P 28, 


COMPUTE RSTN 


(c20 + 2) = RSTN (C20 + 
COMPUTE RSTN | + 


2 
(C20 + 3) = RSTN (CQO + 3! 


d+ 
) + 


C10, 


# C10. 


COBULTST 
COBULTST 


COBULTSI 


COBOLTST 
COBOLTST 


. COBOLTST.. 


le"c2767 
COBOLTST 


COBULTST - 


COBOLTST 
COBOLTST 
COBUL TST 
COBOLTST 
COSOLTST 
COBULTST 
COBULTST 
COBULTST 


COBOLTST... 


COBQLTST 
COBOLTST 
COBOLTST 
COBOLTST 
cCOBOLTST 
COBOLTST 
COBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 


 COBOLTST . 


COBCLTST 
COBULTST 


COSULTST . 


COBULTST 
COBOLTST 
COBULTST 
CUBOLTST 
COBOLTST 


COBOLT ST. 


COBOLTST 
COBULTST 


_COBOLTST . 


COBOLTST 
COBOLTST 


COBULTST 


COBULTST 
COBQLTST 0 


COSULTST 
CQOBULTST 


-COBOLTST... 


COBOLTST 
COBOLTST 


_COBOLTST _ 


COBOLTST 
COBULTST 


COBOLTST 
COBOLTST 


COBOLTST 


_COBULTST oo. 


| 
| 
| 
| 


oon ®@ we WH = 


wala Loteess 


: i =. 


024350 COBULTST 
024360 3783 SECTION. COBULTST 
i 024370 37L1C. COMPUTE RSIN (C20) =. KSIN (C20) + C1O38  . . .  COBOLTST. 
f 024380 ADD c10 TC c52, CUBOLTST 
; 024390 37L/7C. GO TO 37L2Ccs 37430 DEPENDING ON F110, COBULTST 
‘, 024400 37L5C.. MOVE “ERI” TG RSTA (5), Se ee ares ©) 8 | 0 es nip 
: 024410 37,2C, PERFURM 37,4¢ 10 TIMES$ GU TO 37L6C, COBULTST 
"| 024420 37L4C, COMPUTE RKSTN (Cé0 + C10) = RSTN eet + eee + 610, COBULTST 
Dass 024430 37L6C, PERL co ce: Sorte : Sia 3 UB UUT ST seacate ace es 
| 024440 3785 SECTION, COBOLTST 
“ O24450 37170. IF C42 = 0 HOVE "FROM Li" TO RSTA (010) GO TO ssp COBULTST 
wee ee 024460 ELSE IF Cya.c.4 MOVE. MEROM £3". 10 RSTA COgQI3. 0000... COBOL TST 
024470 MOVE ZERO TO C42F GQ TO 37L90 ELSE MOVE “ERO” COBULTST 
024480 TO RSTA (693 GU TU 37L9D-~ COBULTST 
O24490..37430. PERFORM 37. 8D UNTIL C03. 2.403. MOVE 10 TO.673 ... ... .. COBULTST 
024500 IF c42 = { MUVE Clo TO Dilo GO TU 37L7C- GO TO 37L9D. COBULTST 
024510 37.80, COMPUTE RSTN (C20 + 2) = RSTN (C20 + 2) + C103 COBULTST 
' 024520 ADD ci0O To c73,.. oP Liha wags ge ahi ig bah tsanaateane Gain Routes doeteut Nad eek ee 
" 024530 37L9D,. EXIT. COBULTST 
. 024540 COBULTST 
a 024550 3754 SECTION... — are aaa «Sil de: dec Ae gieate 3... Ae oe 
024560 37L1E, CUMPLUTE RSTN (C20 + 3) & RSTN (CEO + 3) + C16, COBOLTST 
| 024570 PERFORM 37L2E UNTIL C30 > 105 MOVE C10 rO C303 COBULTST 
os 024580 GO TO 37436, ; : _— Sa 4 oo COBOLTST - 
me 024590 37L2E. COMPUTE ROTA (C2U + 4) = RSTN Cc2C + 4) + C105 CUBLLTST 
a 024600 40M Cio TO C30, . CUBULTST 
024610 37L3E, IF C83 s 4ERU ADD G10 Tu RSTN (C20 + 523 GO TO 37L4Ee COBULTST 
024620 37L5E.5 MOVE "ER3" TO RSTA (7). COBULTST 
a 024630 37L4E. EXIT. COBOLTST 
ee OB 464O bied “Be REIL R elem coho SE Lek cal tite oy edee dae eee Brennen 
4 024650 37WU SECTION. COBOLTST 
29 024660 37LiF. MOVE Cic 10 C30; PERFURM 37mV 18 TIMES, COBULTST 
Me as 024670 MOVE 19 TO.C30 MUVE 1 TO udo |. Pp heal tee Nts 2 Gh acaiteten’ bn aenmiact COSULTST 
4, 024680 PERFORM 37L2F UNTIL 020 EXCEEDS 44 GU TO 37L3F. COBOLTST 
wu 024690 37L2F, MOVE 10 TU ANSN (C30)* aNSN (C30 + 325 ANSN (C30 + 5)3 cOBOLTST 
i sudes, tat, C297 00: MOVE 100 TC ANSN.€C30 + C10)» ANSN (C30 + 2)» ANSN (C30 + 4) COBOLTST 
A 024710 ADD 6 TO C304 ALD C10 TO D20, COBCLTST 
i 024720 37L3Fe MOVE 3 TU AUNs MUVE 7? TO CVAS MOVE 42 TO CVNS COBULTST 
Me eee 024730. MOVE "FROM L1" TO ANSA (Cil)»2 ANSA. (2), PERFORM VERIFY... . COBOLIST .... 
; 024740 37EXT. COBOLTST 
i 024750 COBULTST 
“ooo 924760 en ses ps, Beppe as apesleeseien. cs: Segh odotegstivne et eamSS dae, isere de OO UT OV testes bi gee cde Ne teat ina oleae oo 
BY 024770 COBOLTST 
= 024780 COBULTST 
fee =»: O2 4790 PO3B SECTION. | Seeks «pitta Win 2 Aagentia ited Nee a oetes ease HO BIE ISS | Yi ont tanita at ate ot 
Me 024800 38P1. MOVE "PO38" TO SECT“NO.. COBGLTST 
ut 024810 MOVE “ITERATION LIST" TO SECT*TITLE3 COBOLTST 
024820. | MOVE.1. 70.0102 01038 MOVE "ZYXWV" TO ADS. CBO TST.UOw 
ie 024830 MOVE "ABCOEFGH" TO AN8s ANS? MOVE ALL 9 To C7 3s COBULTST 
eae 024840 MOVE C10 TQ Deq MOVE 10 TO 050, COBOLTST 
flo 024850. PERFORM 38.1 VaRYING C30 FROM C10 BY €19 UNTIL ¢30 > k= BP aeseeene Omer > BN A SR Oc 
43 024860 PERFORM 381.2 THRU 38L3 VARYING C30 FROM 010 BY C10 COBOLTST 
ag 024870 UNTIL C30 > (10/2), COBOLTST 
Pe 24880 PERFORM 3881 VARYING C30 FROM CiQ BY. Cio. ae eee Seer at tt OB Saas oa srt ee tee No hd 
62 024890 UNTIL C30 > G10 * 2 + Clu COBULTST 
= 024900 AFTER C20 FRUM C10 BY C1O UNTIL C20 > 3. COBOLTST 
PM 024910 PERFORM 3882 THRU 38935 VARYING C30 FRUM 3 BY =c10. jn 8 UOT Sch 
ss 024920 UNTIL C30 # 0 7 cangers! 
[ 024930 AFTER C20 FROM 3 BY *010 UNTIL ZERU EQUALS C20, COBOLTST l@ 
tice DOE BOs MERE ORM SO ile ee ee ee ta al a ee beg tt Resear 


024950 
024960 
. 024970 
024980 
024990 
022000 
025010 
025020 
022030 
025040 
025050 
023060 
025070 
025080 


woo.) 022090 


025100 
025110 
022120 
029130 
025140 


029150. 


025160 
025170 
025180 
025190 
025200 
02>210 
029220 
022230 
023240 
025250 
029260 
025270 
025280 
025290 
022300 
025310 
025320 
025330 
025340 
025350 
029360 
025370 
025380 


029390. 


025400 
025410 


025420. 


029424 
025430 


comer ee OZ 9440. 


025450 
025460 
———~- 923470 
025490 


025510 
025520 


J 0295390. 


025470... 


0223500. 


COBULTST 
10*5770 


COBOLTST 


COBOLTST 


“COBOLTST 
_COBOLTST 


COBULTST 
COBOLTST 
COBULTST. 


 COBOLTST 


COBOLTST 


. CUBOLTST 


COBULTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
cCOBOLTST 
COBGLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
COBOLTST 
CUBULTST 
COBULTST 
COBULTST 
COBOLTST 
COBULTST 


COBOL YS. 


COBOLTST 
COBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
CQOBULTST 
COBOLTST 
COBULTST 
COBULTST 
COBOLTST 
COBOLTST 


COG OU 18 Ts: ore cawlewats: 


COBULTST 
COBOLTST 


CQOBOLTST 


COBOLTST 
COBOLTST 


COBOLTST OOO 


COBUOLTST 
COBOLTST 


Reco a - SA) i eereevnna eC te re 


cOBOLTST 


Eenreceomeeeteere 3) 01.0 Ph 8) Se ee oeetee Ween 


CUBOLTST 


789 MOVE 789 TO RSTN (050),COBOLTSE. oo. 


COBULTST 


VARYING C20 FRUM ClO * ©10 BY (10 ¢ (C10 * 410)) 
UNTIL C20 GREATER THAN C10 AND = 10, 
PERFORM 38L1U VARYING C50 FROM 4 ¢ 2." C1G.. _ 
BY €2 + 2) 2 = CiO UNTIL C56 > &Y 7 (C10 + 2) 
AFTER C30 FROM 100 / (CC10 * C10) * 10) = 2 BY O10 
UNTIL. C30 EQUALS 0 
AFTER C20 FRUM 1 BY C10 UNTIL c20 ? (c1e ” 3% 
MOVE C10 Ta C305 PEAFORM 3615 3 TIMES, 
PERFOQRM.38854 (GU TO..38EXT, 
381.1. MOVE AN® TO RUF (C630)94 
TF ANS # ROCF (C30) MOVE C10 TO RSTN (1)6 
381. MOVE C73..T0 RSTN C1). 
38L250 MOVE ANS T0 BOA (C30) 
IF ANS # GCA €C30) MOVE C10 TU RSTN (Ce). 
IF C10 IS POSITIVE GO TO. Je, 
MOVE C73 TO RSTN (2), 
382, EXIT. 
36L3- MOVE DIC TO.GN ¢C30)5 
IF GN (C30) 4 010 MOVE Ci1Y Te RSIN eon 
383. MOVE C73 TU RSTN (3). 
38L4e MOVE. ANE TO NLEA. (C2023. = 
IF NLFA (C20) 4 ANB MOVE C10 TO RSTN (He 
384, MOVE €73 TO RSTN (4), 
36L5-¢ MOVE C30 TO RSTN CLO) ADD Clo TO €3c ADD C1oO TO 050 
MOVE ZERG@ TO D110. 
PERFCRM 38.20 THRU 38130 VARYING C>O FROM Cio BY DLO 
UNTIL C50 > (C10 + C10 # 2). 
AFTER 030 FROM O10 BY L UNTIL p30 > 3 
AFTER C20 FROM C10 + 2 BY "1 UNTIL C20 = 0 
AFTER CVA FRUM. 3. BY (010 *.2) UNTIL ZERO & CyA,...... .. .... 
385, EXIT, 
3831 SECTION, 
38L1A_- MOVE. ANS TO O821 (C30*» C20). wae 
38L2A, IF Dea, (C3Us C20) * ANS MOVE C10 TO RSTN (9)3 
GO TO 38L3A. 
MOVE ANS TO Deed (C30r C20).. 
3BL3A, EXIT. 
38S2 SECTION, 
38L1Be IF O721. €C30% C20) ¥ ANS MOVE C10 TO RSTN (623 
GO TO 38L3B. 
MOVE C30 Tc RSTN €14)3 MOVE C20 10 RSTN (15). 
38L3Be EXIT.e 
38353 SECTION, 
368L1C. MOVE C30 TO RSTN (7), 
_ MOVE C20 TO RSIN C82 Ooi Me, aiken 
3854 SECTION. 
38L10, MOVE AS TO B"32 (C50* C30» C20) 
IF Dw32 (C50 ¢c30- C20) 4 aS MOVE C10 TO ASIN (9) §=— 
GO TO 38.30. 
MOVE 123456789 Tg 0742 (030s C30» ¢20), 
3BL2D,.. WW. sip Tate pecs tenet ie het eh eee cae Mee 
MOVE CVA To u110. go TN 3810 3826 3830 DEPENDING ON D110, 
3810. IF O0#43 (C505 030, C2Q0s CyA) # 123 MOVE (C10 TO RSTN (050).COB8OLTST 
7°; 6 Ie ft ees, 92 1 a de ce ek eS tet eee sanssia 
3820. IF D#=43 (C50» 030, C2Us CVA) # 456 MOVE 456. TO “RSTN (9050),COBOLTST 
GO TO 38L3D. | 
3830.4. IF.D°43 (C50+ D030, C20» CVA) zz. 
38L3D. EXIT. 
3885 SECTION. 
38LIE. MOVE 15 TO CVN3 MOVE C10 TO AUNA 2 


Soe COBDETST us 


sce MOVE MAAAAA" TQ ANSA (3)» ANSA (4), 000 


eo @ 
| 02540 MOVE C10 TG ANSN (7)» ANSN (8)s ANSN C14)» ANSN €15), COBULTS] 
@ 025550 MOVE 3 TO ANSN (10) PERFORM VERIFY. CUBULTST @ 
he, 022560 38EXT. EXIT, . Ee Oe OR ree ee : _ COBOL TST... er remem eee area aaa 
' 025570 CUBULTST : 
e- 025580 COBULTST thd 
Bees ste 023590 ee COB Db TST ne cet, et tee as 2 eee as te oe 3 
' 025600 COBMULTST 4 
r 025610 COBOLTST 1@ 
eres we 23620 . = _COBOLT SI... sioste festa gs soit esate ee eet 8 
025630 COBULTST ? 
@: 025640 P039 SECTION, COBULTST 1@ 
Me ee 025650 391. MOVE "PO39" TO SECT=NO,..... ..) _COBULTST. ... . site ashi ey ON A OD Serhan SSO EN 
! 025660 MOVE "MOVE STATEMENT /o1102" TO SEUT#TITLéE. COBULTST ig 
 ) 025670 MOVE 987654.54321 TU C1156 D115. COBOLTST 1@ 
: 929680 | MOVE 98765432109 To Ccill1¥» Dii0,. COBULT ST. emp | eA ae ceria i te to tee AR eh ee 
c 025690 MOVE =776688,5522 TO C104, COBOLTST bei 
@ 025700 MOVE "AAAAABCD” TO ABs COBULTST '@ 
none =. 025710 MOVE "AZS/77BCL*XYZKKK" TO ANIGe covnow oe COBOLTST ee A rie a eee tier nee eee 15 
022742 OPEN INPUT CDIN. COBULTST i 
r 023720 392. NOTE. NUMERIC NON*EDITED ITEMS. COBULTST "@ 
UF ewewuuern 029730 393, MOVE. €115..T0 D220 DA42* O1O49.c20».C?3,.. err 1 1): | 8 ey 9. i ee eae cee ne aE ae 2 
0 025740 MOVE D20 TO RSTN (1), COBULTST Me 
@: 025750 MOVE D042 TO. RSTN (2), COBULTST -1@ 
eisai: 025760 MOVE. 0104 TO. RSTN (3), COBULTST.. |. Poe tere ee AO OT eae ae ee Ee TS 2 
sie 029770 ADD c20 TO C104B, COBULTST ; 
ee 025780 MOVE C1048 TO ASTN (4), COBULTST 231@ 
a 022790. ADD.C73 TO C115B.. COBULTST..- IGOR en one See 24 
oe 025800 MOVE C115B TO RSTN (5), COBOLTST ; 
1 025810 MOVE 54 TO ANSN (1). COBULTST @ 
bo? Bute he ‘oie DEON oO: MOVE 54,54 To aNSN (2), | ACB OTST. pasty 2 ernie sora nian nteenmet Ea eS, 2 
3 a 025830 MOVE 957654,5432 TU ANSN (3). COBULTST is 
A a 025840 MOVE 54 TG ANSN (4), CUBULTST 0 
MO tern an 929850 MOVE 7654,543 T0 ANSN (5)e..... a. COKGL TST. eee a 
a 025860 MOVE 0115 TO CSe. COBULTST ie 
eo” | 025870 MOVE C104 TO 073. COBULTST 21@ 
8 cinvunenenen O2Z5BBO a... MOVE.D73..TO.RSIN (6). 0 | eC OBUE TS Tow cy eecee: nee BaF Secale Stee! 5 
x 025890 MOVE =6688.552 TU ANSN (6), COBULTST ia 
@~- 025900 MOVE C52 TU C1158. CUBLLTST 1@ 
Me cette ures ule, Oar LO: .MOVE C1156. TO. RSIN. (7),.. . ee Ramey 2 PHB Ss bs Ce eR 
- 025920 MOVE 654054 TO ANSN (7). COBULTST is 
e° 025930 MAVE C110 TO D50s uvLS. COBULTST 41@ 
i. [venenatis oo 029940 MOVE. 050. [O..RSTN (8)... : coi UOT SY oo ashe ities rent ene ‘ 
au 025950 MOVE DV¥L5 TO RSTN (9), COBULTST ” 
e« 023960 MOVE 32109 TO ANSN (8). COBULTST 1@ 
Me ses bul ans OP OO EO evi etnn MOVE 96769. AN SN 09) o5cliestssen a wiiunltncae ges Aiuto CORULTS Vander cence a 42 
t 025980 MOVE 783 TO F1D30»% DAN3, COBOLTST : 
@ 025990 MOVE F1030 TO RSTN (10). COBOLTST 4@ 
a 026000 | _ MOVE DANS TO RSTN (11), keds slew eet COB OUTST, oyek, Sia a 
ai 026010 MOVE 783 Td ANSN (10)% ANSN C€11), COBOLTST " 
® M 026020 394, NOTE ALPHABETIC ANO ALPHANUMERIC ITEMS, COBOLTST «| @ 
026030 3954... MOVE AB TO ASs ANJRSe post —— . 
. MOVE AS TO RSTA (1). COBULTST “ee . 
“MGVE ANJRS TO RSTA (2), COBULTST 1@ 
-MOVE "AABAAY TO ANSA (41). ost 61 
MOVE "AABCD” TO ANSA (2), COBULTST 6 
MOVE ALL "Z" TO A7> ANT. COBULTST l@® 
sets oe ME AP I a a a ee DBD PST ele be ce a oe 54 
MOVE A7 TO RSTA. (3) COBOLTST 59 
MOVE AN7 TO RSTA €4), COBULTST had 


e 7 
| aa ~ hg 
‘ 026130 MOVE ANI6 TO RSTA (3), COBULTST ° 
026140 COVE eee ANSA (5)* ANSA (6). COBULTST ® 
ze E ANSA.(5)..10 RSTA. CO). 
é TO. FT adaduen Ma ek Sib. phat QcteSiencan CE 
‘: 026160 MOVE D2C TO RY2 GF RST1 OF RS21 OF RFI IN MISC» See - ee eg 
826179 RFX3 OF RF2s RD1l» RND» ROF (2)»9 RY2 OF MISP, COBOLTST : 
026190 MOVE RY2 UF WESC TU RS Oo a 
2 IN C12). LTS 
® 026200 MOVE RFX3 OF RF2 TO KSTN (13), pauses 
: 026210 | - MAVE. RDI. TO RSTN. C140 a CUBLLTS 
‘ 026 20 MAVE RND TO RSTN (15). “es cocoa 
026230 MOVE ROF (2) TO RSTN (16), COBULTST 
co 026240 MOVE RY2 UF MISP TO RSIN (17). . COBULTST 
as 0 6250 MOVE GN (5) TO RSTAN (Le). | CQ BUL’ 
7 26260 MOVE 54000 TO ANSW C12)» ANSN (1793 Site 
oo 026270 - MOVE S4QcOO TO ANSN (13), | | | sa ea 
‘a eee SAO ae ees 
To : ANGs CG . 
(oven 026200 | MOVE ANB TO.G3T1 OF CRE=SC. eOHOL YS} 
e: | 026310 MOVE C°G3 TO RSTN (19), 7 | oe, a 
: 026320 MOVE GD OF CRP=SC TU RSTN (ZU), COBULTST 
wore B83 MOVE 4421 (0. ANSN.(19).. . Be a ee, Lee COBULTST 
e. 026340 MOVE 76 TO ANSN (20). — COBOLTST 
, 026350 MOVE “LUKLMNOP® TO AGP. Coe ee 
ae 60 MOVE AGP TO ABs ANSA C7). ee eee peo 
e. 026370 MOVE AB TO RSTA (76 BO enULT et 
: 020380 MOVE ALL ceRoES TO C110. CUBULTST 
Pictoicten ORNS “=G TU D110, ee , 
Pah Sa MOVE Cito Ta RSTN (21). : ae 
Bae Td RSTN (22), cas 
; ae see Srna: P MOVE ALL "oz™ To RBIs. 623). a Pe Snes tag the eee eine A co Gee 
fee aaeaze, are” Baiauee To Rota tony’ ante c8oe coecty st 
0° (8) ANSA (8) 5L1S1 
Beh as 026450 MOVE.ALL. SPACES.1U KSIA (Ble. ..... 2 cee peas 
a 026460 | MOVE SPACE TO ANSA (B)< BE pat Patina 
1 926470 396. cs MOVE CORRESPONDING, eee 
rece ’ Bove Teneo Coon a cece MOVE ZERO 70 CRReCMPT"OS. ... . .. CoBLLIST 
Pa : "SPONDING CRP=CMP=SC TU CRPACMP=D Se SGLTS 
; ese es MOVE cl OF CRP@CMP*O0S TGQ RSTN (24) pees 
1 re bg ~ 7. . . : 
— ae . MOVE CC2 OF CRPSCMFTUS TO RSTN C8. nouee ret 
026520 MOVE C4 UF CRP=CMP"US TO RSTN (20), — CGBLLTST 
028 MOVE 888 10 ANSN (24), COBULTST 
026540 | Move. @8. TO ANSN.(26), ~ ad COKULTST 
oe Ove Seaces TU cere CREMDSS 2 Gel OF CRP=DS3.. ~—SeeBLTST = 
926560 van i11 OF GRP=SGr G21 UF CRPeSt, COBOL 
020570. Sethe ths te SO GRLUE cubestr le Gh ckeSS0> sez OF ckeSSee BUTS 
02658 32 OF “sC> G13 CRP*SCs G33 OF CRP@SC» COBOLTST. 
Be oF ae G34 OF CRP=SC» G15 OF CRP*SC» PaeaL Tet 
0 6: ; am “eke : . oe eee eS 
o2s610 Nave 002s 8 1 Get “OF CRP@Sc» G42 CF CHP=SCr a eee 
E86 aanxcs. cc SWEME COM NPSPDININGTEEPoSe (en Chr oiaie Ceecueee” souULy er | 
026640 CRP*pSas CRP@DS4, CRP*DS5. SS” PA eee See eee 
026650 MOVE G11 OF CREA eee 
aehe MOVE G11 OF ck DS1 TO RSTA (9). COBULTST 
$ : COBULTST a 
026680 ag gtOVE 614 OF cHe=DS2 TO RSTA (12), EABLET 
026690... «= I F._G15 CF CRP*DS2 = G [RP = RP = 
aocrac fy eet i 2.8 G15 OF CRP#0S3 MOVE G15 OF CRP"0S3 $COBULTST. 
026710 MOVE G2S1 OF GRP*Do3 TC RSTA (14). Crate 


926720... LF. G45 OF CRp*9S3 = G4) OF CRP*DS4 MOVE G45 OF CRP"0S3_ CUBOLTST 


Bala Goce an 


ala Voce 
a4 a! . ‘ ise : 


026730 TO RSTA (15), CUBULTST 
0206740 MOVE G45 UF CRP@0S4 TU RSTA C16). CUBLLTST 
026750 MOVE..G42 UF. CXPTDS4 10. RASTA (17),  CUBLULTS ST. papel a tate en 
026769 MOVE G43 UF CRP™NS4 TO RSTA (18), CUBOLTST 
026770 MOVE G44 UF CRP*DS4 TO RSTA Civ). CUBOLTST 
2 026780 MOVE GA OF CrRP*0$9 TO RSTa C20), one: aencadiaet . COBLLT ST... sate Bue 
026790 MOVE GE UF CRP™US2 TQ RSTA C2lde CUBULTST 
026800 MOVE G3U1 OF CRP“O03> TO RSTA (22). COKULTST 
ete 029 810.. MOVE G33 OF ChP"Da> TO RSTA (23)4 20. Uw... (elk alls WCU Es Ge: 0) cee nen ne 
026820 MOVE G3S2 GF G2i OF CRP™DS3 TO RSTaA (24), CUBULTST 
026830 MOVE G2T2 OF G31 OF CRR*DS5S TO RSTA (25), COBULTST 
026840. MOVE GeT. OF G34 OF CRP=0S5 TO KSTA 626),.. . COBULTST. . pina iem bse eal tet tie hee Se ata 
026850 MOVE "A1B2C3N4" TO ANSA (9) ANSA (10)> COBULTST 
026860 ANSA (11)» ANSA (12), COBULTST 
026870 ee: . ANS A CL22 2 ANSA 023), A OBOLEST .. A eae a Ee ne eM E C eTE a 
026880 MOVE “A4B2" TO ANSA (14)5 ANSA (22), CUBOLTST 
026885 396E, 06718*69 
026890 MOVE "AL" TO ANSA C20) 6 ki cceteme ete tite vetammenesanin i ven venue memes vie CABLE TS ce ccc ce acne ne ee sane eee 
026900 MOVE "C3" TQ ANSA (21). COBOLTST 
: 026910 MOVE “*x**23,968" TO ANSA (15). COBOLIST 
029920 MOVE ”® $23,968". TO ANS&@ (162, GOUBOLTST... ag Ea 24 Se 
026930 MOVE "$ 23,98" TU ANSA (17). COBULTST 
026940 MOVE ™ 423,98" TU ANSA (18), COBOLTST 
: 026950 MOVE 3.98" TO ANSA (19). COBOLTST. Pere hese se aa eer eee Oe eae 
te 026960 MOVE ALL 98 1U D73, COBSULTST 
A 026970 MOVE 073 TU RSTA (27). COBLULTST 
020980 MOVE "ya9ega9”" TU ANSA (é/), COKRULTST — eS RT IT MRE eel 
026990 MOVE ALL 234 TU DY4. COBOLTST 
027000 MOVE D094 TO RSTA (28). COBOLTST 
' 027010 MOVE "834234234" TOU ANSA (28)... COBOLTST. = Bias Sie te ea 
‘ 027020 MOVE 372134.505¢1 10 D115. COBULTST 
. 027030 MOVE ZERO TO 0115. COBULTST 
reve tone 027040 MOVE D115. 10.RSTA. (29)... 2... -COKULTST . Re Oe ee ree een rect exes 
" 027050 MOVE OCOCOOOOQ000G TU ANSA (29). COBOLTST 
se 0270460 MOVE ALL 9 TO GI (5). COBULTST 
ae . 027070 MOVE ALL .ZERO..10 GINT. _ COBOLTSI..... ee Ree Oe Pa ee ere ae De 
ia 027080 MOVE GI (5) TU RSTA (30), CUBULTST 
* 02/090 MOVE OO00U TU ANSA (30). COBULTST 
Mee. 027100. MOVE AL MAB ET STO WN Bie cm atin ce x Late eeyt Steamer altatucitbace aacrandenwhecsce NO LE WTS Teton ne rare tsesuenastneeye Dee a 
- 027110 MOVE "ABCABCAB™ TU ANSA (31). COBULTST 
7 027120 MOVE AN& TO RSTA C41). COBULTST 
oS 027130. MOVE ALL "ABC" TO. G14 OF CRP"DSe. COBOLTST. . Pees OA he es ee oe 
ay 027140 MOVE G14 OF CRKR"DSe TO RSTA (32), COBOLTST 
e 027150 MOVE “ABCABCAB" TO AWSA (32), CUBULTST 
Viet aoa Oe POO si Zuie MOVE, SCACE STOUR EMO G lic, a tence preeeb alan vba Alesina ae Mut audisnat Ameen? Mele OM be YS Weaoce hack sen Bah sede Sea ec a Si 
: 027170 MOVE G14 OF CRP“DSe [TO RSTA (33), COBULTST 
‘ 027180 MOVE 26 TO CVN, ' COBULTST 
= - 27190 MOVE 33 TQ CVA,  _. fesaeton anh tiat sus enon ngiteieude Deane ian Duce e an A OL he, Pea afhae EL FRIST : 
a 027200 MOVE 3 TO AUN. CUBULTST 
hi 027210 PERFORM VERIFY, COBLLTST 
ie: Hct OOO FO Begs PME Tae, Soe csay a aide yath fea 30a ecaehe rinses Read ast tym Shcsninte tec what Lada ude head juten oes hfe Silihee oo Se RUE TOD Seaton eh theca te dese detent tc Lilet aR Ohare ee oe 
as 027230 COBOLTST 
pe. 027240 COBULTST 
By RP 280 ae bated. : 2 baa tees . een te eee core arta es ae CR ae ae ad ecg Scie So as ee Oe coe Se 
af 027260 COBLLTST 
a) 027270 PO4O SECTION. COBOLTST 
Pals aero ia OO 2A OW Li MOVE VP OUO" 2) TOUS CTONU 6 ne ct eh ee ete ete, od i UB ULE ST cop oe wShod wyet toNihe oe aot: 
8 027290 MOVE "MOVE STATEMENT @ EQITED NUMERIC ITEMS 7elle2ei™ COBOLTST 
; 027300 TO SECTTITLE. 2 COBOLTST 
927330 MOVE 0001.23 TQ Edi» Ede, EHL,» EH2> EHS, CC OBOLTSTOO OC 


02/7320 
02/330 
027340 
027350 
027360 
027370 
027380 
027390 


Q2/7400.. 


027410 
027420 


027430. 


027440 
027450 
027460. 
027470 
027480 


ee. 027490 


027500 
027510 


027545. 


027520 


027530 
027540 
027550 
027560 
027570 
027580 


027680 


027690. 


027700 
027710 
027720 
027730 
027740 


027760 
027770 
nn O2TTBO 
027790 
027800 


_.... 027810. 


027820 
027830 


. 027750. 


408, 


927640. 


027850 
027860 


927870 


027880 
027890 


yee MOVE SOR cw: 


"MOVE 


ase 

MOVE 
MOVE 
MOVE 

IF EH2 = 
MOVE EF1 

IF EF2 = EF3 


LF ee 
£41 
E42 
EW1 
ERH3 


EF ds 

TO RSTA C1), 

TO ROTA. (22. 

TO RSTA (3), 

MOVE EH3 TU RSTA (4), 

fO RSTA (5)... 

MOVE EF3 TU RSTA (6), 
MOVE " 123" TO ANSA (1). 

MOVE." QO4z23a". LO.ANSA C2), 

MOVE "*ee*123" TO ANSA (3), 
MOVE "#00123" TU ANSA (4), 
MOVE " | $123" TO. ANSA (5), 

MOVE " $00123" TO aNSA (6), 

MOVE 01005205 TO Els EB3. 
MOVE EBL. TU RSTA.C?), 
MOVE EB3 TO ASTA (8). 
MOVE "0100505" TO ANSA (7), 
MOVE :"0001005" TQ. ANSA (B), 
MOVE ALL O TO bdAbe 
MOVE EBAL TU KSTA (9) 


woe MBM Se ee OOM TO ANSACG9) «. 


MOVE 1234 TO PEZ1, 

MOVE PEZ41 TO RSTA (10). 

MOVE 12,34 TU PEZ1. 
MOVE PEZ1 [N RSTA 
MOVE “" O12634" [TU ANSA (11)0 
MOVE PEZ2 TO RSTA (12). 

MOVE PEZ3..7T0 RSTA.C132W.... 7 
MOVE "S 12234,59" [GU ANSA (12), 

MOVE ALL O TO PéEd3. 

MOVE. PEZ3 f[O.KSTA (14)... 

MOVE 123479 TO PezmlL» PEZPLs 
MOVE PEZeL TO RSTA (15). 

MOVE PEZ*R TO. RSTA (16de. 
MOVE PEZPL TO RSTA (17). 
MOVE PEZPR TN RSTA €18)6 


(lid. 


PEZPRe PezeR, 


MOVE "423479" 10 ANSA C1526 
MOVE " 123.79 " TU ANSA (16). 
MOVE "+ 123.79" TO AnSA (17). 


MOVE * 123,794" TO ANSA (18). 2 Oo, 
MOVE "456e78 TO PEl@L» PEZ*Rs PeZrLs PEZPR, 
MOVE PEZ=-t TO RSTA (19)6 
MOVE Peget TO RSTA C20). 2 
MOVE PEZPL TO RSTA (21). 
MOWE PEZPR TO RSTA (22), 
a, 456078" TO ANSA (19)s5 ANSA C24). 
MOVE * 456.78"" TO ANSA (€20)»% ANSA (22), 
MOVE 33,33 TO PEFPS» PEF @S, 
MOVE PEFPS TO RSTA €23)5 
MOVE PEF*S TQ RSTA (24), 
MOVE * #33.33" TU ANSA (23), 
MOVE "  ..33e33" TO ANSA (24), 
“6666 TO PEFPS» PEF@S, 
MOVE PEFPS TO RSTA (25). 
__MOVE PEfesS TO RSTA (26). 
MOVE " =6666,00" TO ANSA 
MOVE ALL O TO PEH, 
__MOVE PER TO RSTA Ce2?d. |. 


(25)» ANSA (26), 


ANSA C13), 


COBULTST 
COBLULTST 
CObULT.ST 
COBULTST 
COBULTST 


. COBLULTSY 


COBULTST 
CUBLLTST 


COBOLTST 
COBOLTST 


. COBULTST. 


COGBOLTST 
COBULTST 
COBOLTST 
COBOLTST 
cOBOLTST 
COBOLTST. 
COBOLTST 
COBOLTST 
O5ST31°66 
CQBOLTST 
COBULTST 


COBOLTST 


COBULTS) 
COBULTST 


COBULTST 


COBULTST 
COBULTST 


COBLLTST 
COBULTST 


COBULTST 


COBOLTST 
COBOLTST 


COBOLTST.. ...... 


. COBOGLT ST. 


COBOLTST 


COBULTST 
COBULTST 


. COBULTST. 


COBULTST 
COBULTST 


COBOLTST.O. . 


COBOLTST 
COBULTST 


COBULT ST 


COBOLTST 
COBOLTST 


COBULTST 
COBOLTST 


COBOLTST 
COBOLTST 


COBULTST 
COBOLTST 


 ROBOLTST 
COBULTST 


“COBULTST 
eee eR ea ete em el oe eno este a" a 9 Seed 


recreates °° -1" 5 5 eae ea 


we Sree oe OU BURT S cre eee aes. 


Ce ane ERT ere oes ener eres 1-14 | Pi Gh Semen ne 


027905 MOVE "keeway TU ANVSACZ7) 4 O5731"66 
027910 409, MOVE 1.23 TO PEH» PELs PEH3> FEF D*® PEFU2» PEFO3>» COBULTST 
a eae . 02/920 jan VPEB CAS OPED Bg .cicdctentiee aeleaiee wt athens Si aad, ee cher néteel dens | MER BRIE RS Tee este 3.64 Gee ee 
i" 027930 MOVE PEH TO RSTA (28), COBULTST 
‘ 027940 MOVE PEHD TO RSTA (29)6 COBOLTST 
027950 MOVE PEH3. TO RSTA (30), ee AOBULTST oo 
027960 MOVE PEFD TO RSTA C31)6 COBOLTST 
: 027970 MOVE PEFD2 TO RSTA (32), COBOLTST 
Wipe ODT ORO  MOVE..PEE D3. Tu.#8STa.c33),. Sion sy IRD aE ee hed amblordus Sek CRUE TS T..ce- seperate 
: 027990 MOVE PECR TU RASTA (34), COBULTST 
" 028000 MOVE PEUB TU RSTA (35), COBOLTST 
Oe 28010. MOVE Siew 23" TO ANSA CAB), ote ee tr COBOLTST.o 0 | oases dE, po GreeNs oles Bh te ell atl a Se 
028020 MOVE "Seeeee1,23" TO ANSA (29), CUBLLTST 
| 028030 MOVE "$ee*001e23" TO ANSA (30), CUBULTST 
a26040. — MOVE MLL £4423" TG ANSA (31)2. ANSA.032)4ANSA. C33), COBULTST . 
028050 MOVE ‘ $1e23  " 10 ANSA €34)» ANSA (35), COMULTST 
: 028060 MOVE 333,09 TO PEFD2. COKULTST 
‘ee eee, O28Q70 MOVE 1234.00 TO.PEFD3.... . RR at INE RTO, re RIC PEN OET Reve AE SPTUR Og 15 Us ce GRE PT 
028080 MOVE PEFOQ2 TO RSTA (36). CUBULTST 
" 028090 MOVE PEFO3 TO RSTA (37)¢ COBULTST 
Pe Ge, 028100 MOVE " $333.09" TQ ANSA (46), | SDgSotdy tnRe R ett th cai SCORE ST 2)... 
028110 MOVE " $1,234.00" TO ANSA (37), COBULTST 
028120 MOVE =53210 TO PECR, PEDB. COBOLTST 
Me, 028130 MOVE PECR TO RSTa (40)... Le impsbe em A haan aeeuprse umreen ae ao A OBOLTST oo oc 
028140 MOVE FEDB TO KSTA (41). COBOLTST 
He 028150 MOVE "$53%210,00CR" TO ANSA (40), COAULTST 
Hn. 028160 MOVE "$53-210.000K" TC ANSA (41)... ri . COBOGLTST 
a: 028170 MOVE 000099,99 TO PEB. COBOLTST 
a 028180 MOVE ALL 8 TU PEQ, COBULTST 
Paik on & 028190 MOVE 009999.00 TO PEBB.. Sh staid Sac Sate oreo eae BUTS, hance, cesta ees tN ake Rees lids ee 
a 028200 MOVE PEB TQ RSTA (42). COBULTST 
ai 028240 MOVE PEO TO RSTA (43), CUBULTST 
OP ela, .. 928220 MOVE PEBB. TO.RSTA (44). | ” dak to ohana Pate. aebeeceds af CDRULTST- 
my, 028230 MOVE " 2099.00" TU ANSA (42). COBOLTST 
xl 028240 MOVE "000088.00" 10 ANSA (43). COBOLTST 
18 eussun  ., 928250 MOVE " 99999 " TU ANSA (44). © | a ae sassy gaa aD Aili Doth Uedig: Sitcnee 5. Stig Gein Sg ees i at te Sees ot 
= 028260 MOVE 234567 TO PEIA. COUBULTST 
ic 028270 MOVE 2345679 TO PEIS. COBOLTST 
98 ne on ve we oe 928280 “ee 2 1 id CNL YO > 6 De oe Re aA) 2) a 
es 028290 MOVE PEIS TO RSTA (46). COBULTST 
a 028300 MOVE "GWERTG2345KMHO6O7" TO ANSA (45), COBOLTST 
Ma 928310 MOVE "0%1/234023245.7" TU ANSA (4O)¢ | ee eae na amen 67 01-15 5 dc TE RR EET See RM eRe 
a 028320 MOVE 73,5 TO C73. COBULTST 
“ 028330 MOVE 520,1 TU C52, COBULTST 
Mae - 028340 2). ADD. C732 O52 GIVING FEZ 3 AOR LIST 
(3 028350 MOVE PEZ3 TO RSTA (47). COBOLTST 
aa 028360 MOVE "S$ 593260" TO ANSA (47). COBOLTST 
eo. .028370 EVE 2 TORU pice, Siete sitet tne attest Salen gua Sp Resi gtd nal oe ea SN ad, SEP ELS TORN et Pigs ds adidas ere 
ne 028380 MOVE 47 TG CVA, COBOLTST 
: 028390 PERFORM VEKIFY, COBOLTST 
epee ers 92-01! 0 Fa 9 Se eee eh a a ae nn toe 68 01-1 60 2s ao (AS 
028440 COBOLTST 
028420 : COBOLTST 


028440 COBOLTST 
028450 COBOLTST 
EO OU i ye Soh epee feb fnl SN eee ts ak adethgt ae Ch Sets Ghia tate tl te ear IE pe COBOL TST es 
028470 ' COBULTST 
wee Sy COBOLTST 
ae cs a ha a a tee pt it es a ll tate ae Spi ot SOP SD osc cheat otek Cit te ad 
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028500 CUBULTST 
0246510 PO41 SECTION. CUBULTST 
028520 411. MOVE “PO4i" Tao SECT<Nle. | . Te . J. £OBULTST 
028530 MOVE "EXAMINE STATEMENT 7.11.3" TO SECT@TITLE, COBOLTST 
028540 MOVE 010100131001 TU 110, CUBULTST 
028550" MOVE +999897.99849 TU D115. COBULTST 
028560 MOVE °552525.2525 TG oiu4, COBULTST 
028570 MOVE "AAZYAXAP™ TL Ade CUBULTST 
028580 MOVE. "AZL3II9Z CAAEXAMINE IS AAAABAAASCA” TU AN3SQO,.  ...... .COBULTST. 
028590 MOVE "AAAAAAAAZZ72ZZ222" TO AN16. COBULTST 
028600 EXAMINE 0110 TALLYING ALL Q, CUBULTST 
028610 MOVE TALLY. TO.RSTN (1), -. CUBOLIST 
028620 MOVE 5 TO aNSN (1), COBLULTST 
028630 EXAMINE 1L15 TALLYING LEADING Ge CUBLULTST 
0284640. MOVE.TALLY. TQ..KaTN (2), COBULTST 
028650 EXAMINE D104 TALLYING UNTIL FIRST ox COBULTST 
028660 MOVE TALLY TU KoTN €3), COBOLTST 
028670 <i ee MOVE..2. T.O..ANSN. (3)... 7 COBULTST 
028680 EXAMINE b110 TALLYING ALL 3} REPLACING ‘BY Qe CUBULTST 
028690 MOVE TALLY TO KOTN (4), COBULTST 
028700 MOVE DAO TO RSTA C1)_.. — ee ee ee ee) COBOL TST 
028710 MOVE 5 TO ANSN (4). COBULTST 
028720 MOVE "#202002200€" TO ANSA (1), COBULTST 
028730 EXAMINE AS TALLYING LEADING “a” REPLACING. | _ .... COBUL TST 
028740 BY "BMY, CGOBULTST 
028750 MOVE TALLY TU KOTN (5), CUBULTST 

. .028760 MOVE AB TU KSTA (2). Boh ¢ CUBLLTST 
028770 MOVE 2 TO ANSN (5), COBGLTST 
028780 MOVE "QRZYAXAP"™ TQ AWwSa (2)ao COBGLTST 
028790 EXAMINE AN3Q TALLYING UNTIL FIRST "N" REPLACING ...... .cUBOLTST 
028800 BY ett, COBLLTST 
028810 MOVE TALLY TO ROTN (6), COBULTST 
028820 MOVE ANSO TU ROTA C3)e. . ta, aude see ae, & .. . £OBGLTIST. 
028830 MOVE 15 TO ANSW (6)- COBULTST 
028840 MOVE ALL "x" TU ANSA (3). COBOLTST 
028850 EXAMINE ANIO TALLYING ALL "BY REPLACING BY. ."C™, * COBLULTST 
026840 MOVE TALLY TO ROTN (7), COBULTST 
028870 WOVE AN16 TU ROSITA (4), COBULTST 
028880. MUVE "AAAAAAAACZ £4422" TQ ANSA C4)... . ...... COBULTST 
028890 EXAMINE AS TALLYING ALL "B"™ REPLACING BY "A, COBOLTST 
028900 MOVE TALLY TO KROTN (8). COBOLTST 

028910 MOVE A&® TO RSTA (5).-. eee oie ae cee MOET ST net ace 
028920 MOVE 2 TO AWSN (8B). CUBULTST 
028930 MOVE "AAZYAXAP™ TO ANSA (€5)-e COBOLTST 
a28940 EXAMINE D115 TALLYING LEADING 9 REPLACING BY 6.  §  COBLLTST.. _ 
028950 MOVE TALLY TO RSTN (9), COBOLTST 
028960 MOVE 0115 TO RSTA (4), COBULTST ' 

028970 | MOVE. "79989799849" TO aNSa (63,0000 Uo OL TST 0 
028980 EXAMINE 0110 REPLACING ALL O BY 2e COBOLTST 
028990 MOVE 0110 TO RSTA (7), CUBOLTST 

029000. 2. ~MOVE "4#2¢222222222" TO ANSA (7), COB ULIST 
029010 EXAMINE AS REPLACING LEADING "A" By "BY, COBOLTST 
029020 MOVE AB TQ RSTA (8). COBOLTST 
029030 0... 9. wou MOVE “"BRZYAXAP"™ TO ANSA (Ale _. Fad Penne a ated rer aay C210) - G0 es ci] Geta eee ee ae eee 
029040 EXAMINE D104 REPLACING UNTIL FIRST 2 “BY. Qe COBOLTST 
029050 MOVE D104 TO RSTA (9), COSULTST 

AM 29060000000 0 MOVE 2225252525" TO ANSA (9). 2 BOL TST. 
029065 411E. 06"18769 
029070 EXAMINE aNi6 REPLACING FIRST "a" BY "Z", CUOBOLTST 

ween O29OBO a MOVE ANTO TO RSTA 610). 000 0 COBOL TST 
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Al 029450 
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Dieta o cheats ee a 00 
? 029480 
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029680 VERIFY SECTION, 


MOVE "ZAAAAAAAL“LZZZ2Z2"" TG AWSA (410). 
EXAMINE a&® REPLACING ALL "C"™ By "UHM, 


EXAMINE 66. REPCACING. ALU BOB Y Oia Coa ule ok. 


MOVE A&® TO RSTA (11), 
MOVE “"BBRZYAXAP™ TQ ANSA Cil), 
MOVE ALL “A" 10.G15. OF CRP“=DS2. 
MOVE ALL "B" TO G14 OF CRPA152, 
EXAMINE GL5 OF CRkP"US2 REPLACING ALL YA” BY "oN", 
. EXAMINE .G14 OF CRP"US2 REPLACING ALL "BY BY. A. 
EXAMING CRP=DS2 TALLYING ALL "A™ REPLACING BY non, 
MOVE TALLY TO KSTN (44), 


MOVE..G14 OF CRPMDS2 TOLRSTA C12) 6. oc ec 


MOVE 8 TO ANSN (40). 

MOVE "BBBBBHBB” TO ANSA (12). 
MONEE oe NOL SG IN DR abe ccind SoA. FS. opt cincutele tum ieinden Ietcuctenes 
MOVE 12345 Tn GI (2). 
MOVE ALL 8 TO GF2 (1)» GF2 (2), 


EXAMINE GINT TALLYING ALL @ REPLACING BY "7", 


MOVE TALLY TO KSTN (11), 
MOVE GF2 (2) TU RSTA (43), 


MOVE 22.70 ANSN C11). oa say einen teases Pn ee 


MOVE 777777 TO ANSA (13), 
EXAMINE GINT TALLYING LEAUING ZERO REPLACING BY 5. 
MOVE TALLY TO KSIN (12). 
MOVE GI (1) TU RSTaA (144), 
MOVE 5S TO ANSN (12), 
MOVE 55555 1 ANSA (44), 
MOVE QUOTE TO AN1Le 
EXAMINE aNd REPLACING ALL GUUTE BY "x" 
MOVE ANL. TO RSTA €19), ~ 
MOVE “xe Tl ANSA (19), 
MOVE 6 TC 010, : 
MOVE "K" TO ANLe.. 


EXAMINE 010 TALLYING LEADING 6 REPLACING BY 5, 


MOVE U10 TO RSTA (15). 


MOVE TALLY.IO KSTN (13).. sg a git a 


MOVE “F" TO ANSA (15). 
EXAMINE ANL TALLYING UNTIL FIRST "K™ REPLACING BY "EM, 


cr Bh ey iW We Welfare 9 lea. 16 iL Ren On) ee 


MOVE AN1 TO RSTA (16), 
MOVE "K"™ TQ ANGA (145), 


MOVE ALL 8 TO ANOS. Bie Aeotgh Sokasteen GA aed eens tc Bend, wan eee eas 


EXAMINE AN64 TALLYING ALL S REPLACING BY 7. 
MOVE AN6H TO RSTA (17), 


once oMOVE ALLO. LOUANSA C17). Fee EI eee EE oe OP 


MOVE AN64 TO ANJRS, 


MOVE TALLY [TO KSTN (15). 

MOVE 64 TO ANSW (15), 
MONE STG NUN eras ee cute goede n aay abcd a tech ah ipceMaray ty 
MOVE 15 TO CYN, . 
MOVE 19 TO CVA, 
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COBULTST 
COBULTST a 
COBULTST . i 

COBULTST 1@ 


Fo 21-16 Us 2 a ne ec cee eo me al PCY ae eee eee . 


COBULTST j 
COBULTST 1@ 


Bs el) 01 Ms 2G Cn ene ee eee a Re ee 6 


COBULTST ? 
COBOLTST 1@ 
COBULTST.. say Sih tate ade cen eee ance ele hee Be a 9 
CUBULTST by 
CUBLLTST "1@ 


PUB ULT ST: ox 2, serra eine es Se at Sin tty ase EN Sa eet as 


COBULTST 13 
COBULTST 1@ 
OBO sci ceuahatencieamgtast! wt co pee ee a 
COBULTST 16 
COBULTST 1@ 


et US Tecate see erage yO a a tse BS a eee sa bi 


COBULTST "¢ 
COBOLTST 24@ 


COBOL TST . Lin ai dior dv Lait es thee ech Sse eae eg Sa ; al 


COBULTST 2 
COBOLTST 231@ 


GOES, <cte, Sncdith prentnitlmniesta a testes ee a eae ree eee 5 


COBOLTST 2 
CUBOLTST e@ 


/ EBS Petty et ah ncnales dei tet ads eae ds eats =: 2 


COBULTST 2e 
CUBULTST L1@ 


ose) LS cok ale uty Rea b cot yates deel enc R a tae ee, sa ie bi 


COBOLTST 31 
CUBULTST aal® 


foal = FU 2 Ge ee tee eee ee | 


COBULTST a 
COBULTST 31@ 


US Eisen as sical ieee te el a 


COBULTST by 
COBULTST 34@ 


= FLO T” LE LS I | ene Re eet ae a 2 


COKULTST a 
COBULTST “|@ 
SU 1 = C01 0S 6-18 CEN a Ee ee nen 4 
COBOLTST ‘ 
COBOLTST 4@ 


spl CALE SY acti 2, pt eda etc se ante Oe aoe ace Pd e e ha 


CUBULTST : 
COBULTST i@ 


ee oe eerie ee COROT GT oe 


COBOLTST | a 
COBOLTST 2 1@ 


PERFORM VERIFY) pase | a 
: 5. 


EXIT, 


COBOLTST 
COBOLTST j® 
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seistda nigh ack SGN Mining aete Geen es erence tae aco ee ee Baas a OO. et Ue 
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COBOLTST 3 | lf 
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029690 
029700 
Q29710 
029720 
024730 
029740 
029750 
029760 


929770 
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029790 
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029990 
030000 
030010 
030020 
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030060 


030070 


030080 
030090 
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9.39130 
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030180 


_.039190. 
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030230 
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LS. 
L6. 

Li3. 
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L88. 
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L10. 
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939160 | 


L16. 


SL3. 
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030260 
039270 


030280 


CUBULTST 
WRITE A®R FROM HD? BEFURE ADVANCING © LIWES, COBULTST 
IF AUN < 1 OR > 3 GO TO RCd,. et oie Soc CORLL TST 
IF AUN = 1 OR 3 GO TO SLie IF AUN = 2 GO TO SL2, COBOLTST 
MOVE O TC SWH, COBOLTST 
PERFA@RM MVIN VARYING C290 FROM 1 BY 1 YVNTIL C20. > CVNa,. .. COBOLTST 
MOVE O TO INX. CUBULITST 
ADD 1 TC Inx, COBULTST 
IF RSTN CINX) 2 Awan CINX) GO 10 Le. COBULTST 
GO TO 16, COBULTST 
MOVE 1 TC SWH. COBULTST 
MOVE “E“ TO BN .CINX), _ COSOULTST 
If CVN > INX GU TU L4G COBLLTST 
IF AUN = 3 GC [TO Sle, COBULTST 
IF. SWH. 5 1 GO TO L7e CUBOLTST 
WRITE A*R FROM HD3 BEFORE ADVANCING 6 LINES, COBOLTST 
PERFORM CLARY. COBULTST 
gO TO.VE,. i tats Onan f Be Fee Tee COBLLTST 
MOVE O TC INX. COBULTST 
COBULTST 
WRITE AtR FROM HO4 BEF OnE. AL VANCING. 3 LINE Sa. ieee ten ne COBULTSI 
ADD 1 TC JINX, COBULTST 
IF BN CIAX) = "TY" GO Tu LS. ; COBOLTST 
MOVE "N" TO. NwAn .AtNea. Lae tes ees, COBOLTST 
MOVE INX TO INXNUe INXN, CUBLILTST 
MOVE ANSN CINX) TO ANWe COBULTST 
MOVE RASTN cCIWX). 10 RESULT. 2 Pst Bae ae COBULTST 
WRITE A™R FROM HDD BEFORE ADVANCING 2 LINES. COBULTST 
GO TC L1lil.e COBULTST 
MOVE INxX TO. EWl» ENOZ. 0. - CQOBULTST - - 
MOVE "KA" TO FNi»e FN2. CUBULTST 
WRITE AeR FROM HUS BEFURE ADVANCING 2 LINES COBULTST 
© IF Cyn.>2 INX-GOU 10 L8e wl .. Seer aT eee CUBULTST.. 
MOVE SPACES TO A=R, CUBOLTST 
WRITE A#R BEFORE ADVANCING 5 LINES. COBOLTST 
UF AUK F.3 MOVE O TO.InX 6.60 TQ L14d.. . a .COBQLTST 
PERFORM CLARY. COBULTST 
GO TO VE, cCOBOLTST 
MOVE. OLTC..SWTaww . COBOLTST. 
PERFORM MVTA VARYING C20 ‘FROM. 1 BY 1 UNTIL “C20. > “CVAe cOBOLTST 
MOVE O TQ INXe COBULTST 
ADD 1.70 INX, ud biteav> at te © _COBOLTST 0 oo. 
IF RSTA CINX) #¢ ANSA CINK) GU TG Lil. CUBULTST 
GO TO Liz. COUSULTST 
MOVE 4. 10 SW1e Ephrem ee ee AO 
MOVE "F™ TO BA CINK). COBYLTST 
IF CVA > INX GO TG L1O0. COBOLTST 
IF AUN © 3 NEXT SENTENCE ELSE GO TO L166 ow COBORTST 
IF SWH = 0 AND SA1 s 0 GD TO L13 ELSE MOVE. “O TO TNX. COBULTST 
GO TC L8é. CUBLULTST 
Oh Ses aL 99 oe CH AE IP Me On Ie 2 een tee ae Pe eee TO 
MOVE O TC INX. COBOLTST 
WRITE ATR FROM HD4 BEFORE ALVANCING 3 LINES, -COBULTST 
ADO 1 .TQ_INKe.. sete Biss Sh Mie iteclen Bay ok, Sinha aA a aera Sent eet te ee See EO Wks Pugh co i pen 
IF BA CIAX) = "T" GO TO L15. COBULTST 
MOVE "A" TO N*As AtNe COBOLTST 
MOVE UNY TO UINXNUs INXN 
“MOVE ANSA. CINX) TO ANWe COBOLTST 
MOVE RSTA cINX) TO RESUT, COBOLTST 
WRITE A*R FROM hO9 BEFORE ADVANCING 2 LINESe =  —« CQBOLTST _ 


— COBULTST 


COBOLTST 0 


fOBOLTST 2 


@ 
0302906 GO Tu Lite, CUBULTST 
@ 030300 LIS. MOVE INX TO ENOds ENQGe CUBULTST 
ae 030310. MOVE "A" TC FNie FN2Ze. .... ies . COBULTST. . 
4 030320 WRITE A#R FROM HUB BEFURE ADVANCING 2 LINES, COBULTST 
. 030330 L112. IF CVA > INK GO TO L14. CUBOLTST 
is 939340. MOVE SPACES TO.A™Re. _. COBOLTST 
" 030350 WRITE A@R BEFORE AUVANCING 5 LINES, | cOBULTST 
. 030360 PERFORM CLARY. COGULTST 
ae 030370... ... GO TO VE. ce. ow. CUBULTST. .. 
‘| 030380 MVTA. MOVE "T™ TO BA (C20). COBULTST 
, 030390 MVTN. MOVE "T" TO BN (C20). COBULTST 
2 039400 RCle WRITE AR FROM HO6. BEFURE ADVANCING 6 LINESs 2 uw. COBOLTST. |. 
Hl 030410 VEe~. EXIT. CUSULTST 
@ 030420 CLARY SECTION, COBULTST 
030430 M97. MOVE 1. TO.ceo, ih tesa eras Len tiaras seers hire Ge _COBGCLIST 
030440 GO TO M9Bs M96, M98 DEPENDING ON AUN, COBULTST 
eo. 030450 M98. PERFORM M99 VARYING C20 FROM 1 BY 1 UNTIL C20 > 50, COBOULTST 
ye gates 039460 Ip. AUN & 3.G0.TO.M96.......... FE ee eRe Oe mTOR TT ret oo Gl). 1 SV ch ake, ARNO 
‘ 030470 GO TO MCE, COBLLTST 
eo. 030480 M96, MOVE 1 TO C20. COBULTST 
ne .039490. PERFORM MSS VARYING C20 FROM 1.8Y 2 UNTIL C20 2.506. 2000000 COBULTSTO 8 8 ee 
" 030500 GO TO MCE, COBULTST 
eo. 030510 M99, MOVE ZERCES TO RSTN (CeU)» ANSW (C20), CObULTST 
me 939520 M95. MQVE SPACES Tu. RSTa (C20) AnSaA CUZ0)- BN. (C20)2. BA (C20). CUBULTST. . 
as 030530 MCE. EXIT, COBOLTST 
@e* 030540 END@GF=JOB. CUSLLTST 
a 999999 ENDMOF"JOB.¢LAST CAKL UN OTAPL, .OouguOcCVOOUUCOLUOOUUOOOOOOLOOOULOUUUUOON 
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